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PROGRAB^MING COSI^MAIMDS MADE SIMPLE 



CALL COLOR 

CALL COLOR can be a very powerful command if you you use it to its limits. This 
command always takes the following format: CALL COLOR (CHARACTER SET, FOREGROUND 
COLOR, BACKGROUND COLOR). The character set refers to the set number for which 
the character in question is located. The foreground color refers to the color 
of the character itself. The background color refers to the color in the 
background. Note: If the foreground and background colors are the same then the 
character (s> will appear as a solid block of that color. The examples below will 
illustrate the use of CALL COLOR. 

Example 1: 

100 REM CALL COLOR #1 
110 CALL CLEAR 
120 CALL SCREEN (5) 
130 FOR A=l TO 8 
140 CALL COLOR (A, 5, 5) 
150 NEXT A 

160 PRINT "THESE WORDS SHOULD APPEAR AS":: 

170 PRINT "IF THEY WERE PLACED ON THE":: 

180 PRINT "SCREEN ONE AT A TIME.":::::::: 

190 FOR A=l TO 8 

200 CALL COLOR < A, 16,5) 

210 NEXT A 

220 GOTO 220 

Example 2: 

100 REM CALL COLOR #2 
110 CALL CLEAR 
120 CALL SCREEN (2) 

130 FOR A= l TO 50___ , -t, r ^ ^ ^ 
T40 RANDOM rzE" 

150 CALL HCHAR ( INT (24*RND)+1, INT (324RND) +1,42) 
160 CALL COLOR (2, 16,2) 
170 CALL COLOR (2, 2, 2) 
ISO GOTO 160 
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CALL 6CHAR 



CALL 6CHAR is probably one of the least explained commands. This command allows 

you to read a character from anywhere on the screen. In some respects it 

performs like a CALL KEY command in that it scans the screen instead of the 

keyboard. When a CALL GCHAR is encountered, a particular row and column position 

is read by the computer and the ASCII value of the character at that location is 

returned. The format for this command is always CALL GCHAR (ROM NUMBER, COLUMM 

NUMBER, NUMERIC VARIABLE). The following example will illustrate the use of the 
CALL GCHAR command. 

Example 1 : 

lOO REM CALL GCHAR #1 

110 CALL CLEAR 

120 FOR A=l TO 8 

130 CALL COLOR (A, 16, 13) 

140 NEXT A 

150 CALL CHAR(96, "FFFFFFFFFFFFFFFF") 

160 CALL CHAR ( 104, "FFFFFFFFFFFFFFFF") 

170 CALL COLOR (9, 7, 7) 

180 CALL COLOR (10, 5, 5) 

190 FOR B=8 TO 17 

200 FOR C=12 TO 21 

210 CALL HCHAR(B,C, 104) 

220 NEXT C 

230 NEXT B 

240 FOR D=l TO 100 

250 RANDOMIZE 

260 CALL HCHAR<INT(10*RND)+8, INT(10«RND)+12,96) 

270 NEXT D 

280 FOR F=8 TO 17 

290 FOR G=12 TO 21 

300 CALL GCHAR (F,G,H) 

310 IF H=96 THEN 360 

320 IF H=104 THEN 390 

330 NEXT G 

340 NEXT F 

350 GOTO 420 

360 1=1+1 

370 CALL SOUND (-SO, 220,0) 
380 GOTO 330 
390 J=J+1 

400 CALL SOUND (-50,880,0) 
I 410 GOTO 330 

420 PRINT "THERE ARE EXACTLY" ; I ; "RED" : : 
430 PRINT "BLOCKS AND"; J; "BLUE BLOCKS." 
440 .GOTO 440 

Example 2: 

100 REM CALL GCHAR #2 
110 CALL CLEAR 
120 FOR A=8 TO 17 
130 FOR B=12 TO 21 
140 RANDOMIZE 

150 CALL HCHAR(A,B, INT(26>RND)-f-65) 
160 NEXT B 



2 



170 NEXT A 
180 C=INT(10tRND)+8 
190 D=INT(10»RND)+12 
200 CALL GCHAR (C,D,F) 

210 PRINT "THE CHARACTER AT ROW";C; : 
220 PRINT "AND COLUMN" ; D; " IS " ; CHR« (F) ; "- " 
230 GOTO 230 



CALL JOYST 



CALL JOYST allows you to input information to the computer based on the position 
of the lever on the joysticks. This command takes the following format: CALL 
JOYST(KEY UNIT, X-RETURN. Y-RETURN) . The key unit refers to which joystick is to 
be active. A key unit of "1" results in joystick 1 being activated. A key unit 
of "2" results in joystick 2 being activated. Note: You have a choice of having 
either one or both jovsticks activated in your program- The x-return and 
y-return must be numeric variables. The computer assigns an integer value of -4, 
+4 or to each of these Vv^riables, based on the position of the joystick at 
that time. You may then use these values in vour program by referring to the 
variable names. The following examples will illustrate the use of the CALL JOYST 
command . 

Ek amp 1 e 1 : 

100 REM CALL JOYST #1 

110 A=16 

120 B=12 

130 CALL CLEAR 

140 CALL SCREEN (16) 

150 CALL CHAR<96, "FFFFFFFFFFFFFFFF" ) 

160 CALL C0L0R(9.2, 16) 

170 CALL JOYST (1,C,D) 

180 CALL KEY(1,F,G) 

190 IF FOIB THEN 240 

200 H=H+1 

210 IF H<16 THEN 230 
220 H=l 

230 CALL C0L0R(9,H,H) 
240 A=A+C/4 
250 B=B-D/4 

260 A=INT(32* ( (A-1 ) /32-INT ( (A-1 ) /32) ) ) +1 
270 B=INT(24« ( (B-1 ) /24-INT ( (B-1 ) /32) ) ) +1 
280 CALL HCHAR(B, A,96) 
290 GOTO 170 



Example 2: 

100 REM CALL JOYST #2 

110 CALL CLEAR 

120 CALL JOYST (1, A, B) 

130 IF (A=0)«(B=0) THEN 140 ELSE 160 
140 CALL SOUND (-1000, 30000,0) 
150 GOTO 120 

160 IF (A=0)«(B=4) THEN 170 ELSE 190 
170 CALL SOUND (-1000, 262,0) 
ISO GOTO 120 

190 IF (A=4)«(B=4) THEN 200 ELSE 220 
200 CALL SOUND (-1000, 294, O) 
210 GOTO 120 

220 IF (A=4)*(B=0) THEN 230 ELSE 250 
230 CALL SOUND (-1000, 330,0) 
240 GOTO 120 



250 IF ',A=4. >*•;&= -^4) THEN 260 ELSE 280 
260 CALL SOUND ( - I 000 . 349 , O ) 
270 GOTO 120 

280 IF (A=0)*(B=-4) THEN 290 ELSE 310 
290 CALL SOUND (-1000, 392,0) 
300 GOTO 120 

310 IF (A=-4) « (B=-4) THEN 320 ELSE 340 
320 CALL SOUND (-1000,440, 0) 
330 GOTO 120 

340 IF (A=-4)«(B=0) THEN 350 ELSE 370 
350 CALL SOUND (-1000,494,0) 
360 GOTO 120 

370 IF (A=-4)*(B=4) THEN 380 ELSE 120 
380 CALL SOUND (-1000, 524,0) 
390 GOTO 120 
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CALL KEY 



CALL KEY is a very useful and powerful command which limits which key(s) are to 
be pressed. This is one way to avoid user errors and make your program "idiot 
proof". The CALL KEY statement always takes the following format: CALL KEY (KEY 
UNIT, RETURN VARIABLE, STATUS VARIABLE). The key unit refers to which keyboard is 
to be the input device. A key unit of "O" results in the entire keyboard being 
scanned for input. A key unit of "1" results in the entire left half of the 
keyboard being scanned for input. A key unit of "2" results in the right side of 
the keyboard being scanned for input. The return variable refers to which key 
will be pressed and that value must be numeric- The status variable refers to 
the status of the command. A "1" indicates that a new key was pressed since the 
last performance. A "O" indicates that no key has been pressed. A "-1" indicates 
that the same key was pressed during the performance as was pressed during the 
last performance. After the computer scans the keyboard it then sets the return 
and status variables accordingly. The computer either rescans the keyboard or it 
passes control to another section of the program. Remember that when a key is 
pressed the value returned is numeric. The examples below illustrate the use of 
the CALL KEY command. 

Example 1: 

100 REM CALL KEY - ALPHABETIC 

110 CALL CLEAR 

120 CALL KEY(0,A,B) 

130 IF B=0 THEN 120 

140 IF A=78 THEN 180 

150 IF A089 THEN 120 

160 PRINT "YOU PRESSED THE LETTER Y!":: 
170 BOTO 120 

180 PRINT "YOU PRESSED THE LETTER N!":: 
190 GOTO 120 

Example 2: 

100 REM CALL KEY - NUMERIC #1 

110 CALL CLEAR 

120 CALL KEY(0,A,B) 

130 IF A=49 THEN 180 

140 IF A=50 THEN 200 

150 IF A051 THEN 120 

160 PRINT "YOU PRESSED THE NUMBER 3 KEY":: 
170 GOTO 120 

180 PRINT "YOU PRESSED THE NUMBER 1 KEY":: 
190 GOTO 120 

200 PRINT "YOU PRESSED THE NUMBER 2 KEY" 
Example 3: 

100 REM CALL KEY - NUMERIC #2 

liO CALL CLEAR 

120 CALL KEY(0,A,B) 

130 IF (A<49)+(A>51) THEN 120 

140 ON A--48 GOTO 150,170,190 

150 PRINT "YOU PRESSED THE NUMBER 1 KEY":: 

160 GOTO 120 

170 PRINT "YOU PRESSED THE NUMBER 2 KEY":: 
180 GOTO 120 

190 PRINT "YOU PRESSED THE NUMBER 3 KEY":: 
200 GOTO 120 
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CALL HCHAR AND CALL VCHAR 



CALL HCHAR and CALL VCHAR are two very useful commands that share the same 
parameters but go in different directions. The format CALL HCHAR is CALL 
HCHAR (ROW, COLUMN, CHARACTER CODE, NUMBER OF REPETITIONS) and the format for CALL 
VCHAR is CALL VCHAR (ROW, COLUMN, CHARACTER CODE, REPETITIONS) . As you can see the 
only difference is that one goes vertically while the other goes horizontaly. 
The row can be any integer between 1 and 24 while the column can be any integer 
between 1 and 32- The character code can be any interger between 32 and 159 
while the number of repetitions can range, in a practical sense, between 1 and 
768. The fallowing example will illustrate the use of both CALL HCHAR and CALL 
VCHAR. 

Example 1: 

100 REM CALL HCHAR #1 

110 REM AND 

120 REM CALL VCHAR #1 

130 CALL CLEAR 

140 CALL SCREEN (2) 

150 CALL CHAR(96, "FFFFFFFFFFFFFFFF") 

1 60 CALL CHAR ( 1 04 , " FFFFFFFFFFFFFFFF " ) 

170 CALL COLOR (9, 5, 5) 

180 CALL COLOR (10, 7, 7) 

190 FOR A=l TO 24 

200 FOR B=l 32 

210 CALL HCHAR (A, B, 96) 

220 NEXT B 

230 NEXT A 

240 FOR C=l TO 32 

250 FOR D=l TO 24 

260 CALL VCHAR (D,C, 104) 

270 NEXT D 

280 NEXT C 

290 FOR F=l TO 24 

300 CALL HCHAR (F, 1,96,32) 

310 NEXT F 

320 FOR 6=1 TO 32 

330 CALL VCHAR (1,6, 104,24) 

340 NEXT 6 

350 60T0 190 

Example 2: 

100 CALL HCHAR #2 
110 AND 

120 CALL VCHAR #2 

130 CALL CLEAR 

140 A*=" TEXAS INSTRUMENTS" 

150 FOR A=l TO LEN(A«) 

160 CALL HCHAR(12,6+A,ASC(SE6*(A«,A, 1) ) ) 
170 NEXT A 

180 FOR B=l TO LEN(A*) 

190 CALL VCHAR (3+B, 15, ASC(SE64i(A^,B, 1) ) ) 
200 NEXT B 
210 60T0 210 
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DIM 



DIM is a statement that is used when refering to arrays. An array is an °'^derly 
arrangement of items with some common factor. The DIM statement takes the 
following format: DIM array name(integer 1, integer 2, integer 3) . The array 
must have a name and that name may be any variable name. The number of integers 
separated by commas following the array name determines how many dimensions the 
array has. The value of the integers determine the J" Tlowe^ 

dimension. Note: The DIM statement must appear in the program at a lower 
numbered line than any reference to the array. If you do .f" ^[^fj^ 

then the maximum number of elements will be 11, beginning with ^/"^^^"^^ "^^^^ f 
10 If you wish to eliminate O then you must use the statement OPTION BflSifc. i- 
Note: OPTION BASE 1 will set the lower limit of all arrays to 1. The following 
examples will illustrate the use of the DIM statement and its use with arrays. 

Example 1: 



100 REM DIM #1 
110 CALL CLEAR 
120 FOR A=l TO 8 
130 READ B(A) 
140 NEXT A 

150 DATA 262,294,330,349,392,440,494,524 
160 PRINT " MUSICAL NOTES ":: 

170 FOR C=l TO 8 
180 READ A*,B* 

190 PRINT : "PRESS ";C;" FOR ";A*;" " ; B* 
200 NEXT C 

210 DATA C,LOW C, D, , E, , F, , G, , A, , B, , C, MIDDLE C 

220 CALL KEY(0,D,F) 

230 IF F<1 THEN 220 

240 IF (D<49)+(D>56) THEN 220 

250 CALL SOUND ( - 1 000 , B ( D-48 ) , O ) 

260 RESTORE 

270 GOTO 220 



Example 2; 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 



REM DIM #2 
CALL CLEAR 

DIM A* (20) ,B*(20) ,C*(20) ,D*(20) ,F*(20) 

PRINT "THIS PROGRAM WILL ALLOW YOU":: "TO STORE UP TO TWENTY NAMES, 
PRINT "ADDRESSES AND PHONE NUMBERS ."::" THE LIMIT MAY BE CHANGED TO" 
PRINT "SUIT YOUR NEEDS. NOTE: YOU":: "MAY NOT USE COMMAS!":: 
"PRINT "HOW MANY NAMES DO YOU WISH":: 
INPUT "TO STORE? ":A 
CALL CLEAR 

IF (A<1)+(A>20) THEN 130 
FOR B=l TO A 



PRINT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 



THIS IS ENTRY NUMBER" ;B 
"NAME: " 

"ADDRESS: " 

"CITY /STATE: " 

"ZIP CODE: " 



A«(B) 



":B*(B) 



":C*(B) 



D$(B) 
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300 PRINT s "TELEPHONE NUMBER:" 

310 INPUT " ":F*(B) 

320 PRINT :" PRESS ANY KEY TO CONTINUE." 

330 CALL KEY(0,C,D) 

340 IF D=0 THEN 330 

350 CALL CLEAR 

360 NEXT B 

370 CALL CLEAR 

380 FOR F=l TO A 

390 PRINT " ENTRY NUMBER" ;F;" 

400 PRINT " "::A*(F);" "::B*(F);" "::C*(F);" "::D*(F);" "::F*<F) 

410 PRINT :::::" PRESS ANY KEY TO CONTINUE." 

420 CALL KEY(0,G,H) 

430 IF H=0 THEN 420 

440 CALL CLEAR 

450 NEXT F 
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FOR-NE XT-STEP 



FOR-NEXT-STEP can be a poMer-Ful programming tool if it is used to its 
potential. This statement instructs the computer to set a variable's lower and 
upper limit, and increment that variable by some value. If the increment is not 
specified then the computer will automatically set it to 1. The loop will be 
completed when the lower limit and the upper limit are equal. If you have one 
loop within another loop then it is considered to be "nested". The following 
examples will illustrate the use of a single and nested loop. 

Example 1: 

100 REM FOR-NEXT-STEP #1 
110 CALL CLEAR 
120 CALL SCREEN (8) 

130 A*=" TEXAS INSTRUMENTS HOME COMPUTER. " 
140 FOR A=l TO LEN(A«) 

150 CALL HCHAR(12,A,ASC(SEG«(A*, A, 1) ) ) 
160 NEXT A 
170 GOTO 170 

Example 2: 

100 REM FOR-NEXT-STEP #2 
110 CALL CLEAR 

120 CALL SCREEN (8) , 

130 CALL CHAR(96, "FFFFFFFFFFFFFFFRl") 

140 FOR A=l TO 24 ^ 

150 FOR B=l TO 32 

160 CALL HCHAR(A,B,96) 

170 NEXT B 

180 NEXT A 

Example 3: 

100 REM FOR-NEXT-STEP #3 

110 CALL CLEAR 

120 CALL SCREEN (2) 

130 FOR A=l TO 8 

140 CALL COLOR (A, 16,2) 

150 NEXT A 

160 FOR B=l TO 32 

170 READ C 

180 CALL HCHAR(12,B,C) 
190 NEXT B 
200 GOTO 200 

210 DATA 84,69,88,65,83,32,73,78,83,84,82,85,77,69,78,84,83,32 
220 DATA 72,79,77,69,32,67,79,77,80,85,84,69,82,46 

Example 4: 

100 REM FOR-NEXT-STEP #4 
110 CALL CLEAR 
120 A=110 
130 B=2''<1/12) 
140 FOR C=12 TO 1 STEP -1 
150 D=A»B'^C 

160 CALL SOUND (500, D,0) 
170 NEXT C 
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180 CALL SOUND (500, 110, O) 
190 A=825 

200 FOR C=12 TO 1 STEP -1 
210 D=A«B'^C 

220 CALL SOUND ( 500 , 22000 , 30 , 22000 , 30 , D , 30 , -4 , O ) 
230 NEXT C 

240 CALL SOUND ( 500 , 22000 , 30 , 22000 , 30 , 825 , 30 , -4 , O ) 



60SUB AND GOTO 



60SUB and GOTO are two statements that are similar in that they both transfer 
control within the program. The GOSUB statement is used with the RETURN 
statement to allow you to transfer control to a subroutine, complete the steps 
in the subroutine, and return to the next program line following the GOSUB 
statement. The computer automatically saves the next line number of the main 
program to insure that it can return to that point when it encounters a RETURN 
statement at the end of the subroutine. The GOTO statement allows you to 
transfer control within the main program. Note: Both GOSUB and GOTO are 
unconditional Jumps in that they will automatically transfer control to the line 
specified. However, GOSUB needs a RETURN statement to complete its function 
where GOTO does not. The most common use of a subroutine is to perform a process 
several times without having to repeat the identical lines of code. The examples 
below will illustrate the contrast between GOSUB and GOTO. 

Example 1 : 

100 REM GOSUB 
110 CALL CLEAR 
120 CALL SCREEN (5) 
130 GOSUB 440 

140 PRINT TAB (6) ; "GEOMETRIC FORMULAS":: 

150 PRINT "PRESS": :"1 AREA OF A CIRCLE":: "2 AREA OF A RECTANGLE" :: "3 VOLUME OF A 
SPHERE": : 

160 PRINT "4 VOLUME OF A CYLINDER" :: "5 VOLUME OF A CONE":: 

170 GOSUB 4Q0 

180 CALL KEY<0,A,B) 

190 IF (A<49)+(A>53)THEN 180 

200 CALL CLEAR 

210 ON A-48 GOSUB 240,280,320,360,400 
220 CALL CLEAR 
230 GOTO 140 

240 PRINT "THE FORMULA FOR THE AREA OF":: "A CIRCLE IS:":: 
250 PRINT "AREA=3. 1415«R'"2": : : : : : : 
260 GOSUB 520 
270 RETURN 

280 PRINT "THE FORMULA FOR THE AREA OF":: "A RECTANGLE IS:":: 
290 PRINT "AREA^AtB"*: : : : : : : 
300 GOSUB 520 
310 RETURN 

320 PRINT "THE FORhRJLA FOR THE VOLUME":: "OF A SPHERE IS:":: 
330 PRINT "VOLUME=4/3»3. 1415»R'"3": : : : : : : 
340 GOSUB 520 
350 RETURN 

360 PRINT "THE FORMULA FOR THE VOLUME":: "OF A CYLINDER IS:":: 

370 PRINT "V0LUME=3. 1415aR'*'2tH": : 

380 GOSUB 520 
390 RETURN 

400 PRINT "THE FORMULA FOR THE VOLUME":: "OF A CONE IS:":: 

410 PRINT "V0LUME=l/3«3. 1415«R'^2»H": : : : : : : 

420 GOSUB 520 

430 RETURN 

440 FOR C=l TO 14 

450 CALL COLOR (C, 5, 5) 

460 NEXT C 

470 RETURN 

480 FOR D=l TO 14 

490 CALL COLOR (D, 16,5) 



9 



500 NEXT D 
510 RETURN 

520 PRINT " PRESS ENTER TO CONTINUE."* 
530 CALL KEY(0,F,G) 
540 IF F013 THEN 530 
550 RETURN 

Example 2: 

100 REM GOTO 
110 CALL CLEAR 
120 CALL SCREEN (5) 
130 SOTO 390 

140 PRINT TAB (6) ; "GEOMETRIC FORMULAS":: 

150 PRINT "PRESS": :"1 AREA OF A CIRCLE":: "2 AREA OF A RECTANGLE" :: "3 VOLUME OF A 
SPHERE": : 

160 PRINT "4 VOLUME OF A CYLINDER" :: "5 VOLUME OF A CONE":: 

170 GOTO 430 

180 CALL KEY(0,A,B) 

190 IF (A<49)+(A>53)THEN 180 

200 CALL CLEAR 

210 ON A-48 GOTO 240,270,300,330,360 
220 CALL CLEAR 
230 GOTO 140 

240 PRINT "THE FORMULA FOR THE AREA OF":: "A CIRCLE IS:":: 
250 PRINT "AREA=3. 1415«R^2": : : : : : : 
260 GOTO 470 

270 PRINT "THE FORMULA FOR THE AREA OF":: "A RECTANGLE IS:":: 
280 PRINT " AREA=A«B" ::::::: 
290 GOTO 470 

300 PRINT "THE FORMULA FOR THE VOLUME":: "OF A SPHERE IS:":: 
310 PRINT "V0LUME=4/3«3. 1415«R'"3": : : : : : : 
320 GOTO 470 

330 PRINT "THE FORMULA FOR THE VOLUME":: "OF A CYLINDER IS:":: 
340 PRINT "V0LUME=3. 1415»R'^2«H" ::::::: 
350 GOTO 470 

360 PRINT "THE FORMULA FOR THE VOLUME":: "OF A CONE IS:":: 

370 PRINT "V0LUME=l/3«3. 1415«R'-'2«H": : : : : : : 

380 GOTO 470 

390 FOR C=l TO 14 

400 CALL COLOR <C, 5, 5) 

410 NEXT C 

420 GOTO 140 

430 FOR D=l TO 14 

440 CALL COLOR<D, 16,5) 

450 NEXT D 

460 GOTO 180 

470 PRINT " PRESS ENTER TO CONTINUE." 
480 CALL KEY(0,F,G) 
490 IF F013 THEN 480 
500 GOTO 110 
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PRINT 



PRINT is probably one of the most used commands in computer languages. You may 
print detailed instructions, useful messages, game scores and even your very own 
name! After you have decided on what and where to print, you must then decide on 
how. You must enclose your message in its own set of quotation marks and 
seperate each message with one or more print separators. The print separators 
consists of either a colon, comma or semicolon. A colon instructs the computer 
to print the the message following it on the next line. The comma instructs the 
computer to tabulate and begin printing at either column 1 or 17 depending on 
the length of the message. The semicolon instructs the computer to print 
messages together without a space. Note: The use of multiple colons will 
instruct the computer to skip several lines. Remember, that you must place the 
print separators outside of the quotation marks otherwise the computer will 
assume they are part of the message and will include them as part of your 
message to be printed. The following examples will illustrate the use of print 
separators. 

Example 1: 

100 REM PRINT - COLONS 
110 CALL CLEAR 

120 PRINT "NOW IS THE TIME FOR ALL BOOD":: 
130 PRINT "MEN TO COME TO THE AID OF":: 
140 PRINT "THEIR COUNTRY.":::::: 



Example 2: 

100 REM PRINT - COMMAS 
110 CALL CLEAR 

120 PRINT TAB(5);"C OLOR CODE S":: 
130 PRINT "TRANSPARENT", "MEDIUM RED":: 
140 PRINT "BLACK", "LIGHT RED":: 
150 PRINT "MEDIUM GREEN", "DARK YELLOW":: 
160 PRINT "LIGHT GREEN" , "LIGHT YELLOW":: 
170 PRINT "DARK BLUE", "DARK GREEN":: 
180 PRINT "LIGHT BLUE" , "MAGENTA" : : 
190 PRINT "DARK RED" , "GRAY" : : 
200 PRINT "CYAN" , "WHITE" : : : : 



Example 3: 

100 REM PRINT - SEMICOLONS 
110 CALL CLEAR 

120 PRINT "NOW IS THE TIME FOR ";"ALL GOOD":: 
130 PRINT "MEN TO COME TO THE ";"AID OF":: 
140 PRINT "THEIR " ; "COUNTRY" :::::: 



Example 4: 

100 REM PRINT - MIXED 
110 CALL CLEAR 

120 PRINT "TWINKLE TWINKLE LITTLE STAR," 
130 PRINT "UP ABOVE THE WORLD SO HIGH,": 
140 PRINT "TWINKLE TWINKLE LITTLE STAR, " 



:"HOW I WONDER ";"WHAT YOU ARE,":: 
"LIKE ";"A DIAMOND IN THE SKY,":: 
:"HOW I WONDER ";"WHAT YOU ARE!" 
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READ-DATA-RESTORE 

READ-DATA-RESTORE are three very useful and powerful statements that are used 
together. The READ statement takes the following format: READ variable list. An 
example would be as follows: READ A,B,C,D. The DATA statement takes the 
following format: DATA data list. An example would be as follows: DATA 1,2,3,4- 
Note: Variable names and the variables themselves must be separated by a comma. 
The computer would interpret the two previous examples as follows: The computer 
will attempt to read four values from a data list to be assigned to the four 
variables in the variable list. Thus A would equal 1, B would equal 2, C would 
equal 3 and D would equal 4. As the computer reads a value to be assigned to a 
variable, a pointer, located inside the computers' memory, will then point to 
the last data item that was read. In our previous example the pointer would be 
over the fourth data item. The computer will leave the pointer there under the 
assumption that there will be more data items for it to read. However, if you 
wish to read the same values again later in the program, then you must use a 
RESTORE statement to instruct the computer to move the pointer back to the 
beginning of the variable list. This will enable you read the data items again. 
If the pointer is not moved back to beginning of the variable list and you 
attempt to read the values again, then the message "DATA ERROR" is displayed on 
the screen and the program stops running. Note: If you instruct the computer to 
read numeric values or string contants then you must be sure the computer has a 
numeric value or a string contant to read. Remember that numeric values are 
different from string constants. The following examples will illustrate the use 
of the READ-DATA-RESTORE statements. 

Ex amp 1 e 1 : 

100 REM READ-DATA #1 

110 CALL CHAR(96, "FF818181818181FF") 
120 CALL CHAR(97, "FFFFFFFFFFFFFFFF") 
130 CALL CLEAR 

1 40 PR I NT " PATTERN- I DENT I F I ER " : : " CON VERS I ON TABLE " : : 

150 PRINT "PATTERN";" BINARY";" HEXADECIMAL":: 
160 FOR A=l TO 16 
170 READ A*,B* 

180 PRINT TAB(IO) ;A*;TAB(21) ;B* 
190 NEXT A 

200 DATA 0000,0,0001, 1,0010,2,0011,3,0100,4,0101,5,0110,6,0111,7, 1000,8 

210 DATA 1001,9, 1010, A, 1011, B, 1100, C, 1101, D, 1110, E, 1111, F 

220 FOR B=l TO 32 

230 READ C,D 

240 CALL HCHAR(C,D,96) 

250 NEXT B 

260 FOR F=l TO 32 

270 READ G,H 

280 CALL HCHAR(G,H,97) 

290 NEXT F 

300 GOTO 300 

310 DATA 8,3,8,4,8,5,8,6,9,3,9,4,9,5, 10,3, 10,4, 10, 6, 1 1 , 3, 1 1 , 4, 12,3, 12,5, 12,6 
320 DATA 13,3, 13,5, 14,3, 14,6, 15,3, 16,4, 16,5, 16,6, 17,4, 17,5, 18,4, 18,6, 19,4 
330 DATA 20,5,20,6,21,5,22,6,9,6, 10, 5, 1 1 , 5, 1 1 , 6, 12,4, 13,4, 13,6, 14,4, 14,5 
340 DATA 15,4, 15,5, 15,6, 16,3, 17,3, 17,6, 18,3, 18,5, 19,3, 19,5, 19,6,20,3,20,4 
350 DATA 21,3,21,4,21,6,22,3,22,4,22,5,23,3,23,4,23,5,23,6 
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Example 2: 



lOO REM READ-DATA #2 
110 CALL CLEAR 

120 PRINT " THE CROMATIC SCALE"::::::::::::" PRESS ANY KtY TO BEGIN" 
130 CALL KEY(0,A,B) 
140 IF B=0 THEN 130 
150 FOR C=l TO 27 
160 READ D 

170 CALL SOUND (500, D,0) 
180 NEXT C 
190 RESTORE 
200 GOTO 130 

210 DATA 131, 139, 147, 156, 165, 175, 185, 196,208,220,233,247,262,30000 
220 DATA 262,247,233,220,208,196,185,175,165,156,147,139,131 
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FLOWCHARTING 



A good builder would not attempt to construct a building without a blueprint. The blueprint is a very useful 
tool, and like most tools, requires study and practice to master. 

The Flowchart is a computer programmers' blueprint. It is just what it's name implies: a chart that 
demostrates the flow of a program. The Flowchart for a rather long and intricate program can be drawn up in a 
relatively short time. Once constructed, the flowcharts various units can be isolated and the programming for 
each unit written and joined to adjacent units. 

A major use of the Flowchart is to solve program problems. It's much easier to isolate the general area of a 
problem and troubleshoot it, rather than troubleshoot the entire program. 



ANSI Flowchart Symbols 




iNTERutr ) — Used to begin and end a prog 



START, END 



ram: 



— Subroutines: 
GOSUB 



PRocess 



Process 



— FOR/NEXT, LET 




Data into or out of a computer: 

INPUT, READ, PRINT. DISPLAY, CALL HCHAR, CALL KEY, CALL 




— IF XXX THEN yyy 





~ Connects one portion of the flowchart to another: 



COMMEA/T 



— Additional discriptive comments: 
REM 



> 



V 

< 

^ AWOWH0ADS 



— Indicate direction of data-flow. 



lU 



The following program not only converts inches to feet, but it is also a good example of a Flowchart. 



180 CALL CLEAR 

110 F*="FEET" 

120 I*=MNCHES" 

130 READ I 

140 IF 1=0 THEN 220 

150 REM**FEET&INCHES** 

160 F=INT<I/12) 

170 II=I-F*12 

180 REM**PRINT RESULTS** 

190 PRINT I ;TAB<6) ;I*; ;F; 

TAB<17) ;F*;II ;TAB<23) ;I*: : 

200 GOTO 130 

210 PRINT : : : : 

220 END 

230 DATA 7,26,79,652,17,720, 




START ^ 

IMITIAHZATIOM 




LET 
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The next Flowchart demonstrates how a much longer program can, through flowcharting be easily 
understood. The program for this chart is on page 74. 




HINTS & TIPS 



Memory Test: 

Have you ever wanted to check both the size o-f your program and the amount of 
memory remaining after you have ran your program? Well you can by completing 
the following steps: 

Step 1 : 

Insert the following two lines as the first two lines of your program. 

1 A=A+8 

2 GOSUB 1 

Step 2: 

Now type in RUN, press the ENTER key and wait. You should get the following 
error message on the screen: MEMORY FULL IN 1. 

Step 3: 

Now type in, without a line number, the following and press the ENTER key. 

PRINT 14544-A:A 

The computer should return two values. The top number represents the amount of 
memory used while the bottom number the amount of memory remaining. Remember 
that these two lines should only be added whenever you wish to test for msmary. 
Note: You can REM these two lines so that you will have the capability to test 
the memory at any time by simply removing the REM statements! 

RoyQ^lng Off : 

Have you ever wanted tor round off numbers and did not know how to do it in a 
program? Well it is easy once you know the secret. The following example will 
illustrate the process: 

100 CALL CLEAR 
110 A= 123 -456789 
120 PRINT A 

130 A=INT(A«100+.5) /lOO 
140 PRINT A 

After you run this program you should get the following results: 

123.456789 
123.46 

If you want to round off to three places then use 1000 instead of 100 or if you 
want to round off to four places use 10000 instead of 100. Try it! 



IT 



^egati.ye Numbers: 

Have you ever wanted to generate random numbers from say -10 to 10? Well it is 
an easy task to accomplish once you know the secret. The following example will 
illustrate the process: 

100 CALL CLEAR 
110 RANDOMIZE 
120 FOR A=l TO 15 

130 B=(-1)'^(INT(11«RND) ) « ( INT ( 1 1 «RND) ) 
140 PRINT B; 
150 NEXT A 

All you have to do in order to specify the range of numbers is to change the 
number 11, in line 130, to any number you desire. To change the number of 
numbers to be generated you need to cange the number 15, in line 120, to equal 
the amount you wish. 



DisQlay At: 

Are there times when you would like to print something on the screen without 
having it scroll up the screen? Well you can and it is easier than you think! 
Here is how that can be done without Extended BASIC. You need to establish 
three parameters before you can get started. First you need to decide what you 
want to print. Second you need to decide where you want to print. Third you need 
the subroutine to accomplish this task. Here is an example to illustrate just 
how easy it is to reach your goal. 

100 CALL CLEAR 
110 A=12 
120 B=l 

130 A$=" TEXAS INSTRUMENTS HOME COMPUTER" 

140 GOSUB 160 

150 BOTO 150 

160 FOR C=l TO LEN(A«) 

170 CALL HCHAR(A,B,ASC(SEB*(A«,C, 1) ) ) 
180 B=B+1 
190 NEXT C 
200 RETURN 

XQBut : 

Would you like to eliminate the question mark that appears when you use an input 
statement? Well this can be done very easily. The use of a blank space the 
length of the screen will solve this problem. The following example will 
illustrate how a blank line can make all the difference! 

100 CALL CLEAR 

110 PRINT "PLEASE ENTER YOU NAME:" 
120 A«=" (28 spaces here) 

130 INPUT A*:B* 
140 GOTO 140 

This should eliminate the question mark and produce the following results when 
the program is run- 

PLEASE ENTER YOUR NAME: 
YOUR INPUT WILL APPEAR HERE 
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Call Key,: 



Have you ever wanted to enter a Call Key statement that would only take one 
input at a time no matter how long you held a particular key down? Well it is 
passible. Here is an example that may help: 

100 CALL CLEAR 
no CALL KEY<0,A,B) 
120 IF B<1 THEN 110 
130 PRINT A 
140 GOTO 110 

By restricting the status to a +1, you can control the input more easily. This 
should eliminate the problem o-f the repeating key- 
Save Memory: 

Have you ever wanted to trim your programs so that they use the least amount of 
memory? Well you can! One way you can save memory is to use a non-numeric 
character in place o-f a numeric character. A non-numeric character uses only 2 
bytes o-f memory where a numeric character uses 4 bytes. An example of a 
non-numeric character would be an "3", where an example of a numeric character 
would be a "1". The following example will illustrate the use: 

100 CALL CLEAR 
110 3=1 

120 FOR A=3 TO 100 
130 PRINT A 
140 NEXT A 

Another way you can save memory, and be efficient at the same time, is to use 
short variable names and start with the beginning of the alphabet. Still 
another way to save memory is to eliminate all remark lines. 



Logit^l. QO^ratgrs: 

Have you ever seen the term "logical operator (s) " but just could not seem to 
really understand what they are and how they are used? Well, it is not an easy 
concept to grasp! The first thing to learn about the relational operator (s) is 
that when the computer evaluates the expression it assigns a -1 to it if it is 
true and a O if it is false. Basically, there are two logical operators and 
they are AND and OR. The fallowing example will illustrate the AND operator. 

100 CALL CLEAR 
110 A=l 
120 B=2 

130 IF (A=l)+(B=2)=-2 THEN 140 ELSE 160 
140 PRINT "THE AND OPERATOR TEST PASSED":: 
150 GOTO 170 

160 PRINT "THE AND OPERATOR TEST FAILED":: 
170 END 

The above example should print "THE AND OPERATOR TEST PASSED" because A does 
equal 1 and B does equal 2. Remember that since both expressions are true then 
the sum of —1 plus -1 does equal -2. Note: You may change line 130 to read as 
follows and still yield the same results: 

130 IF (A=1)«(B=2) THEN 140 ELSE 160 
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The foil owing example will illustrate the OR operator. 



100 CALL CLEAR 
110 A=l 
120 B=2 

130 IF <A=1)+(B=3)=-1 THEN 140 ELSE 160 
140 PRINT "THE OR OPERATOR TEST PASSED" 
150 GOTO 170 

160 PRINT "THE OR OPERATOR REST FAILED" 
170 END 

The above example should print "THE OR OPERATOR TEST PASSED" beacuse A does 
equal 1 and B does not equal 3. Remember that since only one expression is true 
and the other one is -false then the sum of -1 plus O does equal -1. Note: See 
CALL JOYST and CALL KEY for further examples- 



^Di!D^ted GraBhi.cs: 

Have you ever wanted to add some moving graphics to your program but really did 
not understand how? Well the trick is a simple one and the following example 
will illustrate one technique. 

100 CALL CLEAR 
110 CALL SCREEN (2) 

120 CALL CHAR(96, "FFFFFFFFFFFFFFFF") 

130 CALL C0L0R<9, 16,2) 

140 FOR A=l TO 32 

150 CALL HCHARd, A,96) 

160 CALL HCHARd, A, 32) 

170 NEXT A 

180 FOR B=l TO 24 

190 CALL VCHAR<B,32,96) 

200 CALL VCHAR(B,32,32) 

210 NEXT B 

220 FOR C=32 TO 1 STEP -1 
230 CALL HCHAR(24,C,96) 
240 CALL HCHAR(24,C,32) 
250 NEXT C 

260 FOR D=24 TO 1 STEP -1 
270 CALL VCHAR(D, 1,96) 
280 CALL VCHARCD, 1,32) 
290 NEXT D 
300 GOTO 140 

Sub rout i_nes : 

If you look at your program and notice that you are doing a lot of repetitive 
procedures such as PRESS ANY KEY TO CONTINUE or TRY AGAIN? (Y/N) then you are 
not taking advantage of the use of subroutines. Not only will using subroutines 
save memory, reduce the amount of time it takes to type or retype the program in 
to the computer but it will help tremendously in showing good programming logic, 
as well as, help with debugging your program if it is needed. 
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§dyi09 Loading Programs: 



Saving a program on to a cassette tape requires* that a program has been entered 
into the memory of the computer. Once this condition has been met and you are 
sure that the program in question is the one you wish to save, then we can 
proceed with the appropriate steps. First you must type in SAVE CSl and press 
the ENTER key. Second you must rewind the cassette tape to the exact position 
you wish to begin recording your program and then press the ENTER key. Third you 
must press record, which usually results in the simultaneous pressing of the 
play and record buttons, and then press the ENTER key. The instructions will 
always be displayed on the screen provided the first step has been executed. 

Loading a program from a cassette tape requires that a program has been 
previously saved from the computer. Once you have selected the program that you 
wish to load into the memory of the computer, then you can proceed with the 
appropriate steps. First you type in OLD CSl and press the ENTER key. Second you 
must rewind the cassette tape to the exact position where the program begins. 
Third you must press play and the press the ENTER key. These instructions will 
always be displayed on the screen providing the first step has been executed. 

If you encounter an error message that reads » ERROR DETECTED IN DATA then this 
is an indication that the volume setting on the recorder was not loud enough. If 
you encounter an error message that reads « ERROR DETECTED IN DATA then this is 
an indication that the volume setting on recorder was too loud. Therefore, by 
adjusting the volume setting on the recorder according to the error message that 
is displayed on the screen, you should be able to achieve the exact volume 
setting that is right for loading in or checking a program on your recorder. 
Note: Volume settings may vary from both cassette to cassette and recorder to 
recorder . 



Odd and Even Numbers: 



Have you ever tried to get the computer to interpret a number as either even or 
odd? Well it can be done quite easily one you know the secret. The following 
example will illustrate how this goal can be achieved. 



100 CALL CLEAR 

110 PRINT "PLEASE ENTER YOUR NUMBER AND":: 
120 PRINT "I WILL TELL YOU WHETHER IT":: 
130 PRINT "IS AN ODD NUMBER OR AN EVEN":: 
140 PRINT "NUMBER. WHAT IS YOUR NUMBER":: 
150 INPUT "PLEASE? ":A 

160 IF A/2=INT(A/2> THEN 170 ELSE 190 

170 PRINT : "THE NUMBER" ; A; " IS AN":: "EVEN NUMBER.":: 

180 GOTO 110 

190 IF A/2<>INT(A/2) THEN 200 

200 PRINT :"THE NUMBER" ; A; " IS AN":: "ODD NUMBER.":: 
210 GOTO 110 
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THE FLAG OF THE UNITED STATES WITH OUR NATIONAL ANTHEM 



Our beautiful Flag unfolds right before your eyes, and once it is completed, the National Anthem will bring you 
to your feet! The programming perfection in this work makes it the best of it's kind available. Us this program 
to begin all gaming contests in your home. 



188 
118 
128 
138 
148 
158 
168 
178 
188 
198 
288 
218 
228 



REM 

REM »miTED STATES FLAG* 
REM * AND « 

REM * NATIONAL ANTHEM » 
REM * TI BASIC * 

REM *BY RICHARD PROCTOR* 
REM * DAYTON OHIO * 
REM * COPYRIGHT 1983 * 
R EM * * * ***** * * * * * ******* 
CALL CLEAR 



RANDOMIZE 
CALL SCREEN<15) 
DATA 4,7,15,THE,9,8,IWXT 
ED STATES FLAG ,1 3 , 1 5 , AND , 16 , 
9,NATICB^fei|L ANTHEM 
238 GOSUB 1948 

248 CALL CW!»R< 42, "5414325435 
44345A- ) 

258 FOR 1=3 TO 3^ 

268 CALL HCHARCl ,1 ,4a> 

278 NEXT I 

288 FOR 1=1 TO 24 

298 CALL UCHARCI ,Se»42> 

388 NEXT I 

318 FOR 1=30 T0 3 STEP -1 
328 CALL HCHAR< 24 , 1 ,42> 
338 NEXT I 

348 FOR 1=24 TO % STEP 
358 CALL VChWRCI ,3,42) 
368 NEXT I 

378 DEF XX=INT<13*RND+2) 
388 FOR Z=l TO 15 
398 CALL C0L0R<2,XX,1) 
488 CALL C0L0R<2,1 ,XX) 
418 NEXT Z 

428 REM CREATE FLAG STARS 
& STRIPES 
438 FOR C=9 TO 14 
448i CALL C0L0R<C,16,5) 
458 NEXT C 
468 CALL 
478 CALL 
488 CALL 
878788") 
498 CALL 
888884") 
588 CALL 
383844" ) 



CHAR<48,"") 
CHAR<48,"") 
CI^R<96,"888882828F 

CHAR(97, "8888888888 

CHAR< 98, "8888181870 



518 CALL CHAR<99, "8888888883 
818122") 

520 CALL CHAR(188,"88888888E 
8C8C821") 

538 CALL CHAR<181 ,"88888888E 
8C8C828") 

540 CALL CK^R< 182, "888888808 
882828F") 

558 CALL CHAR(103,"041F0E8E1 
1888088") 

S60 CALL CHA|!i<i04,«a00e««888 
810187C»> 

570 CALL CHAR<105,"28F878i788 

588 CALL CrtiiH<t06,*'01 8783838 
48088E8") 

882820F« > 

688 CALL CHAR< 188, "888888888 
88888E8''> 

610 CALL C^^R<i09=^^8787&8") 
628 CALL CHAR( 11 8, "88(9884841 
F8E8E1 I " > 

638 CALL CI^H<U I,** 38384.4") 
648 CALL C^*iiRC112,"81812228F 
8787888" > 

658 CALL C^<113,*C8C821818 
7838384" ) 

668 CALL C^^f!?Clt4,*87878888C 
8808048*> 

678 CALL CHAR<115,"C0C02") 
680 CALL CHAR<116,"02020F070 
788") 

698 CALL CHAR< 117, "888888888 
8888484") 

788 CALL CHAR<118,"18187C383 
844") 

718 CALL CHAR<119, "888883818 
1822828") 

728 CALL CHAR<128,"8888E8C8C 
8288181") 

738 CALL CHAR<121 ,"8888E8C8C 
82") 

748 CALL CHAR< 122, "888888888 
2828F87") 

758 CALL CHAR<123,"1F8E8E118 
8888") 

768 CALL Chb^R(124, "888888881 
8187C38") 
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CHAR( 135, "000088008 
CHAR(i36, "000883010 



770 CALL CHAR<125,"F87878888 

8000301") 

780 CALL CHAR< 126, "070303048 
088E0C0"> 

790 CALL CHAR<127,"C08080400 
2020F07"> 

800 CALL CHAR< 128, "000000008 
080E0C8"> 

810 CALL CHAR< 129, "0708") 
820 CALL CHARC 130, "008004041 
F0E0E11") 

830 CALL CHAR<131 ,"01022020F 
8707088") 

840 CALL CHAR(132,"C02001010 
7030304") 

850 CALL CHAR<133,"07080000C 
0808040") 

860 CALL CHAR<134,"C02") 
870 CALL 
08") 

880 CALL 
102") 

890 CALL CHAR< 137, "3844") 

900 CALL CLEAR 

910 FOR C=5 TO 8 

920 CALL C0L0R<C,6,15) 

930 NEXT C 

940 DATA 1,4, 12, OLD GLORY 

950 60SUB 1940 

960 REM PLACE FLAG STARS 

970 FOR R=7 TO 13 

980 FOR C=4 TO 13 

990 READ A 

1000 CALL HCHAR<R,C,A) 
1010 NEXT C 
1020 NEXT R 

1030 DATA 96,97,98,99,100,96 
,97,98,99,101 ,102,183,184 
1848 DATA 185,186,187,183,18 
4,185,188,189,118,111 ,112 
1858 DATA 113,114,118,111,11 
2,115,116,117,118,119,128,11 
6 

1868 DATA 117,118,119,121,12 
2,123,124,125,126,127,123 
1878 DATA 124,125,128,129,13 
8 , 1 37 , 1 3 1 , 1 32 , 1 33 , 1 38 , 1 37 
1888 DATA 131,134,116,135,11 
8,136,121 ,116,135,118,136,12 
1 

1898 REM CREATE FLAG STRIPE 
S 

1188 CALL C0L0R<2,7,7) 
1110 CALL C0L0R<3,16,16) 



1128 FOR X=14 TO 28 
1138 CALL VCHAR<7,X,48) 
1148 CALL yCrt2»R<8,X,48) 
1158 CALL VCHAR<9,X,48) 
1168 CALL VCI^R<18,X,48) 
1178 CALL VCHARdl ,X,48) 
1188 CALL 'v'CHAR<12,X,48) 
1198 CALL VCHAR<13,X,48) 
1288 NEXT X 
1218 FOR Y=4 TO 28 
1228 CALL VCHAR<14,Y,48) 
1238 CALL VCHAR<15,Y,48) 
1248 CALL VCHAR<16,Y,48) 
1258 CALL VCHAR<17,Y,48) 
1268 CALL 'v»CHAR<18,Y,48) 
1278 CALL VCHAR<19,Y,48) 
1288 NEXT Y 

1298 DATA 2 , 21 , 6 , LADI ES AND 
GENTLEMEN ,23,7, OUR NAT I ONAL 
ANTHEM 

1388 60SUB 1948 

1318 FOR 1=1 TO 2 

1328 CALL S0UND<688,349,8,17 

5,8) 

1338 CALL S0L^D(288,294,8,14 
7,8) 

1348 CALL S0UND<8e8,233,8,ll 
7,8) 

1358 CALL S0UND<888,294,8,23 
3,8) 

1368 CALL S0LWD<888,349,8,26 
2,8,228,8) 

1378 CALL S0LWD<1688,466,8,2 
94,8,196,8) 

1388 CALL S0LWD<688,587,8,22 
8,8,185,8) 

1398 CALL S0IJvlD<288,523,8,22 
8 8 185 8) 

1488 CALL S0LMD(888,466,8,29 
4,8,196,8) 

1418 CALL S0I^D<888,294,8,23 
3,8,196,8) 

1428 CALL S0mD<888,338,8,26 
2 8 233 8) 

1438 CALL S01MD<1688,349,8,2 
62,8,228,8) 

1448 CALL S0UND<488,349,8,17 
5 8) 

1458 CALL S01MD<488,349,8,17 
5 8) 

1468 CALL S0Lff>ID<1288,587,8,3 
49,8,117,8) 

1478 CALL S0UND<488,523,8,34 
9,8,228,8) 
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1488 CALL S0UND<8ee,466,8,34 
9,8,147,8) 

1496 CALL S0mD<16e8,448,8,3 
49,8,262,8) 

1588 CALL S01MD<488,392,8,34 
9,8,262,8) 

1518 CALL S0l^D<488,448,8,34 
9 8 262 8) 

1528 CALL S0W>JD<888,466,8,34 
9,8,147,8) 

1538 CALL S01MD<888,466,8,23 
3,8) 

1548 CALL S01MD<888,349,8,17 
5,8) 

1558 CALL S0mD<888,294,8,14 
7,8) 

1568 CALL S0LMD<888,233,8,11 
7,8) 

1578 NEXT I 

1588 FOR S=l TO 23 

1598 READ D,N1 ,N2,N3 

1688 CALL S0LWD<D*488,N1 ,13, 

N2,13,N3,13) 

1618 NEXT S 

1 628 DATA 1 , 587 , 466 , 233 , 1 , 58 
7,466,233,2,587,466,233 
1638 DATA 2,622,523,262,2,69 
8,587,294,4,698,587,294,1 ,62 
2,523,262 

1648 DATA 1,587,466,294,2,52 
3 , 448 , 228 , 2 , 587 , 466 , 233 
1658 DATA 2,622,523,262,4,62 
2 , 523 , 262 , 2 , 622 , 349 , 228 , 3 , 58 
7,349,117 

1668 DATA 1,523,349,228,2,46 
6,349,147,4,448,349,262 
1678 DATA 1,392,349,156,1,44 
8,349,156,2,466,349,147,2,29 
4,233,196 

1688 DATA 2,338,262,233,4,34 
9,262,228 

1698 CALL S0mD<888,349,6,17 
5,6) 

1788 FOR 8=1 TO 14 

1718 READ D,N1 ,N2,N3 

1728 CALL S01MD<D*488,N1 ,6,N 

2,6,N3,6) 



1738 NE)a S 

1748 DATA 2,466,294,117,2,46 
6,311 ,131 ,1 ,466,349,147 
1758 DATA 1,448,349,147,2,39 
2,311 ,156,2,392,311 ,156,2,39 
2,349,247 

1768 DATA 2,523,311,131,1,62 
2,196,131 ,1 ,587,349,147 
1778 DATA 1,523,392,156,1,46 
6,392,165,2,466,349,294,4,44 
8,349,228 

1788 FOR S=l TO 13 

1798 READ D ,N1 ,^^1 ,N2 ,V2 ,N3 ,V 

3 

1888 CALL S0UND<D*488,N1 ,V1 , 

N2,V2,N3,'v»3) 

1818 NEXT S 

1828 DATA 1,349,6,175,6,175, 

38,1 ,349,6,175,6,156,6,3 

1838 DATA 466,5,349,5,147,5, 

1 ,523,4,349,4,175,4 

1848 DATA 1,587,3,349,3,233, 

3,1 ,622,2,466,2,262,2,4 

1858 DATA 698,8,466,8,294,8, 

1 ,466,6,392,6,294,6,1 ,523,6 

1868 DATA 338,6,196,6,3,587, 

6,349,6,233,6,1 ,622,6 

1878 DATA 392,6,175,6,2.5,52 

3,6,31 1 ,6, 175,6,5,466,6,294, 

6,117,6 

1888 PRINT 

1898 PRINT -PRESS ANY KEY WH 

EN FINISHED" 

1988 CALL KEY<e,K,S) 

1918 IF S=8 THEN 1988 

1928 CALL CLEAR 

1938 END 

1948 READ h^BR 

1958 FOR 1=1 TO NMBR 

1968 READ ROW, COL, T^ 

1978 FOR J=l TO LEN<T*) 

1988 CALL HCHAR<RCW,COL+J,AS 

C<SE6*<T*, J,l))) 

1998 NEXT J 

2888 HEXJ I 

2818 RETURN 
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MAZE BOGGLE 



A very unique game in which a maze Is created and the players' challenge is to begin in the lower left and 
continue through the maze filling in as much of the maze as possible. The screen changes colors to show your 
progression. You must be careful not to "Lock" yourself in, for that ends the game. You must accumulate 
enough points to continue to the next of the five levels. This game was created by a 9 year old, but it will be very 
challenging to players of all ages. Joysticks optional 



100 REM««»»*«««»*»»«**»»» 
110 REM* MAZE BOGGLE * 
120 REM* EXTENDED BASIC » 
130 REM* BRIAN TAYLOR * 
140 REM*HOLLAND, MICHIGAN* 
150 REM* COPYRIGHT 1983 * 
160 REM****************** 
170 REM**INITIALIZATION** 
1 80 CALL CLEAR s : CALL SCREE 
N<12)ss DISPLAY AT< 10,10) :"M 
AZE BOGGLE" : : GOSUB 760 
190 CALL CLEAR :s a INPUT " 
WANT INSTRUCTIONS? <Y/N) ":Z 

* ss IF Z*="Y'' THEN 580 

200 CALL CLEAR s s CALL CHAR< 

35 , " FFFFFFFFFFFFFFFF" > 

210 CALL CHAR(42, ''66187E993C 

DB") 

220 FOR C=3 TO 9 ! : CALL COL 
0R(C,9,12>s: NEXT C s; CALL 
COLOR< 1 ,7,12,2,6,6) 
230 A*<1) = '' ## # ### # 
### tt# # ## m 

tl 

240 A*<2)=" m 
«» # # ### 

nm # ## ## # - 

250 A*<3)=" ### ### # 

### ### ## ## 

mm mm m mm 

260 A*<4)='' tttttt mm 
mm ### m mm mm 
### m mm m^ 

I 1 

270 A*<5)=" mm m^ n 
# ### # # m^ m m 

# m^ # m m mn 

280 REM**PROGRAM RLff^** 

290 CALL CLEAR s : S=0 g : SS= 

5 s: BP=500 :: M=0 s: SL=-10 

00 

300 CALL HCI^R<24,1 ,35,64) : : 
CALL 'v'CHAR<l ,31 ,35,96) 



310 M=M+1 :: SL=SL+2000+M*l 

00 

320 CALL SPRITECttl .'*2,2,177, 
t 7) 

330 DISPLAY AT<2,1): :A*<M)& 
A*(M) :A*(M)&A*(M) :A*<M)&A*<M 
) :A*<M) : : Y=23 : : X=3 
340 S=S+SS :: DISPLAY AT<2,1 
) :S 

350 CALL J0YST<1 ,C,R) : : R=-S 
GN<R):: C=SGN(C) 
360 IF R OR C THEN 390 ELSE 
CALL KEY<1,C,R):: IF C=18 TH 
EN 420 

370 R=(C>3 AND C<7)-(C=0 OR 
C=15 OR C=14) 

380 C=(C=2 OR C=4 OR C=15)-( 

C=3 OR C=6 OR C=14) 

390 CALL GCHAR(Y+R,X+C,CH) : : 

IF CH>34 THEN 350 
400 Y=Y+R : : X=X+C : : CALL S 
OUND<-90,-2,4) : : CALL LOCATE 
<#1 ,Y*8-7,X*8-7) 
410 CALL HCHAR<Y,X,40) : : GOT 

340 

420 CALL CLEAR : : CALL DELSP 
RITECALL):: S=S-SS*2 :: DISP 
LAY AT< 3,6) : "SCORE: ";S 
430 IF M=5 THEN 550 :: IF S< 
SL THEN 510 

440 FOR N=l TO 4 : : FOR 1=1 
TO 25 :: CALL SOUND< -1 00 , 300 
+25*1 ,3) 3 : NEXT I 
450 FOR 1=1 TO 24 : : CALL SO 
UND<-300, 1000-1*30, 0) : : NEXT 

I : : NEXT N 
460 IF M=5 THEN 550 :: S=S+B 
P : : SS=SS+5 

470 DISPLAY AT<5,6) z^BONUS P 
OINTSs "sBP :: DISPLAY AT<7, 
6):''T0TAL SCORE: " ;S 
480 BP=BP+500*INT(15/<10/M)) 
490 DISPLAY AT<20,4) :''PROCEE 
DING TO MAZE ";M+1 :: FOR D= 

1 TO 1500 g : NEXT D 
500 GOTO 300 
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518 RESTORE :: FOR B=l TO 11 
:: READ D,F :: CALL SOUND(D 

*108,F,e) s : NEXT B 

528 INPUT "ENTER 8 TO PLAY A 

GAIN! "tZ* s: IF Z*="8- THEN 
298 : : CALL CLEAR 

538 GOTO 560 

540 DATA 5,258,5,258,2,258,5 

,258,5,388,2,288,5,288 ,2,258 

,5,258,2,248,5,258 

558 PRINT "YOU ARE INDEED A 

MASTER BUG !":::: 

568 FOR D=l TO 1588 :: NEXT 

D : : END 

578 REM**INSTRUCTIONS** 
588 CALL CLEAR :s PRINT 

MAZE BOGGLE *** IS A": "MAZE 

GAME CONTAINING <5)" 
598 PRINT "PROGRESSIVE G^E 
LEVELS.": : 

688 PRINT "AS YOU ATTEMPT TO 
GUIDE YOUR": "BUG THROUGH EA 
CH I^ZE, HE" 

618 PRINT "WILL LEAVE A TRAI 
L OF BLUE" :" SLIME. YOU MUST 
FILL IN AS" 

628 PRINT "MUCH OF THE MAZE 
AS POSSIBLE" : "WITHOUT GOING 
THROUGH WALLS" 

638 PRINT "OR GETTING TRAPPE 
D BY THE" : "SLIME." : : 
648 PRINT "IF YOUR BUG GETS 
TRAPPED OR": "YOU HAVE FILLED 
IN AS MUCH" 



658 PRINT -OF THE MAZE AS PO 
SSIBLE," s^PRESS THE FIRE BUT 
TCMM OR Q" 

668 PRINT "TO REVEAL YOUR SC 
ORE.": : 

678 INPUT " PRESS ENTER TO 
CONTINUE ":Z* :: CALL CLEAR 
688 PRINT "YOU MUST REACH TH 
E FOLLCHJING" :" SCORES FOR ADV 
ANCEMENT : " : : 

698 PRINT "1ST MAZE: 2,888 
POINTS": "2ND MAZE: 6,888 PO 
I NTS" 

788 PRINT "3RD hWZE: 11,888 
POINTS" :"4TH MAZE: 17,000 PO 
INTS" : : 

710 PRINT "YOU MAY MOVE YOUR 
BUG VER-" J "TICALLY, HORIZON 
TALLY, OR" 

720 PRINT "DIAGONALLY WITH T 
HE JOYSTICK" : "OR THE E,X,S,D 
,W,R,Z&C KEYS." : : 

730 PRINT "CHECK ALPHA LOCK! 

■>.... 
.... 

740 PRINT TAB( 10) : "GOOD LUCK 



PRESS ENTER T 
CALL CLEAR : : 



750 INPUT " 
BEGIN" :Z* ! 

GOTO 200 
760 FOR N=l TO 4 : : FOR 1=1 
TO 25 :: CALL SOLMD( -1 00 , 308 
+25«I ,3) : : NEXT I 
770 FOR 1=1 TO 24 : : CALL SO 
UND<-388,1888-<I«38) ,8) : : NE 
XT I : : NEXT N : : RETURN 



WORD SEARCH 

This program will convert you from a magazine to a computer word game addict! Make your selection by 
picking the matching coordinates. The spot will change color to make it easy to see your pick. Cancel it if you 
wish to try another guess. This game can be used as an Educational Aid or played just for fun. 



188 

110 

120 
130 
140 
150 
160 
170 
180 
190 
CH" 
OR 



REM 

REM * WORD SEARCH * 
REM * TI BASIC * 
REM * BY J. GULICK » 
REM *FT,MITCHELL,KY* 
REM ^COPYRIGHT 1983* 
REM **************** 
CALL CLEAR 



REM ** INSTRUCT IONS** 
PRINT TAB(10) ;"WORD SEAR 
:::" YOU WILL BE ASKED F 
TEN" 



200 PRINT 
BE USED BY 
Om A WORD' 
210 PRINT ' 
" YOU CAN 
220 PRINT ' 
SSING THE 
ICH MARK" 
230 PRINT ' 
GRID." : : 
240 PRINT 
TO BEGIN" 



WORDS WHICH WILL 
THE CCWPUTER TO F 

1 

SEARCH PUZZLE." : : 
MARK A LETTER IN" 
THE PUZZLE BY PRE 
TWO KEYS <1-F> WH 

ITS PLACE IN THE 

HIT <ENTER> 
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259 CALL KEY<0,X,S) 

260 IF X013 THEN 258 

270 REM ^^INITIALIZATION** 

280 CALL CLEAR 

290 DIM W*<10,10) ,Q*<10) ,A*( 

15,15) ,B*<15,15) 

300 RANDOMIZE 

31 HEX*=" 1 23456789ABCDEF" 

320 CALL C0L0R<9,1,2) 

330 CALL COLOR<10,1 ,2) 

340 CALL COLORCll ,1 ,2) 

350 CALL C0L0R<12,1 ,2) 

360 REM ** INPUT WORDS ** 

370 FOR X=l TO 10 

380 PRINT -INPUT WORD tt'';X; 

390 INPUT Q*(X) 

400 IF LEN<Q*<X))<11 THEN 43 



410 PRINT "Word Too Long. Ma 
X i mum" :" Length Is Ten Letter 
s." 

420 GOTO 380 

430 FOR Q=l TO LEN<Q*(X)) 
440 W*<X,Q>=SEG*<Q*<X> ,Q,1> 
450 IF <ASC<W*<:X,Q) ) >64) + (AS 
C<W*<X,Q))<91)=~2 THEN 488 
460 PRINT "Illegal Character 

In Word." : "CAPITAL Letters 
Only." 

470 GOTO 380 
480 NEXT Q 
490 NEXT X 

500 PRINT "PLEASE WAIT"::::: 

■ ■ ■ ■ 
• ■ ■ ■ 

510 REM ** FORMAT WORDS ** 

520 FOR X=l TO 10 

530 ON INT<RND*8>+1 GOTO 101 

, 1 070 , 1 1 30 , 1 1 90 , 1 250 ,1310,1 

370,1430 

540 FOR Q=0 TO LEN(Q*<X))-1 
550 A*<HP+Q*HD,k^P+Q**^D)=W*(X 
,Q+1> 

560 NEXT Q 
570 NEXT X 

580 REM ** DISPLAY PUZZLE ** 

590 CALL CLEAR 

600 FOR X=l TO 15 

610 FOR Y=l TO 15 

620 B*<X,Y>=A*<X,Y> 

630 IF A*<X,Y)<>"" THEN 678 

640 B*<X,Y>=CHR*< INT(RND*26) 

+ 65) 

650 A*<X,Y)=" . " 
660 GOTO 680 



670 A*<X,Y)=CHR*<ASC<B*<X,Y) 
)+32) 

680 PRINT B*<X,Y> ; 
690 NEXT Y 

700 PRINT " " ;SEG*<HEX*,X,1) 

" ;Q*<<X-2)*(X>2)*<X<13)) 
710 NEXT X 

720 PRINT :HEX*:::"HIT <1-F> 
FOR MARKING <,)":" OR <Q 
> FOR THE ANSWER" s : : 
730 CALL KEY<0,X,Q> 
740 IF X=81 THEN 890 
750 IF <X>48>*<X<71)=0 THEN 
730 

760 IF <X>57)*<X<65>THEN 730 

770 CALL HCHAR(20,26,X> 

780 CALL KEY<0,Y,S) 

790 IF SOI THEN 780 

800 IF <Y>48)*<Y<71)=0 THEN 

780 

810 IF <Y>57)*<Y<65)THEN 780 
820 CALL HCHAR(20,28,Y) 
830 CALL GCHAR<POS<HEX*,CHR* 
<X) ,1) ,POS<HEX*,CHR*(Y) ,l)+2 
,Q) 

840 P=<Q>96)+SGN< <Q>96)+1 > 
850 CALL HCHAR<POS<HEX*,CHR* 
<X) ,1) ,POS<HEX*,CHR*<Y> ,l>+2 
,Q+32*<P)) 

860 CALL HCHAR<20,26,32> 
870 CALL HCHAR (20,28, 32) 
880 GOTO 730 

890 REM ** DISPLAY ANSWER ** 

900 FOR X=l TO 15 

910 FOR Y=l TO 15 

920 CALL HCHAR<X,Y+2,ASC<A*( 

X,Y) ) ) 

930 NEXT Y 

940 NEXT X 

950 PRINT "DO YOU WISH TO PL 

AY AGAIN?" ; 

960 CALL KEY(0,X,Y) 

970 IF X=89 THEN 1550 

980 IF X=78 THEN 1620 

990 GOTO 960 

1000 REM ** WORD DOWN ** 
1010 HD=0 
1020 VD=1 

1030 HP=INT<RND*15)+1 

1040 »v»P=INT<RND*<15-LEN<Q*<X 

))))+l 

1050 GOTO 1480 

1060 REM ** WORD DOWN-LEFT * 
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1070 HD=-1 
1080 VD=1 

1090 HP=INT(RND*< 16-LEN(:Q*<X 

>)>)+LEN<Q*(X)) 

1100 UP=INT<RND*< 15-LEN(Q*<X 

)))) + l 

1110 GOTO 1480 

1120 REM ** WORD LEFT 

1130 HD=-1 

1140 UD=0 

1150 HP=INT<RND*( 16-LEN<Q*(X 

)>>)+LEN<Q*(X)) 

1160 UP=INT<:RND*15) + 1 

1170 GOTO 1480 

1180 REM ** WORD UP-LEFT ** 

1190 HD=-1 

1200 VD=-1 

1210 HP=INT(RND*< 16-LEN(Q*(X 

))))+LEN(Q*<X)) 

1220 k^P=INT<RND*< 16-LEN(Q*(X 

)>))+LEN<Q*<X)) 

1230 GOTO 1480 

1240 REM »* WORD UP ** 

1250 HD=0 

1260 VD=-1 

1270 HP=INT<RND*15)+1 

1280 'v'P=INT(RND*< 16-LEN(Q*<X 

))))+LEN<Q*<X)) 

1290 GOTO 1480 

1300 REM *« WORD UP-RIGHT ** 
1310 HD=1 
1320 *^D=-1 

1330 HP=INT<RND*(15-LEN(Q*(X 
))))+l 



1340 VP=INT<RND*<16-LEN(Q*<X 

)>>>+LEN<Q*<X)) 

1350 GOTO 1480 

1360 REM ** WORD RIGHT ** 

1370 HD=1 

1380 UD=0 

1390 HP=INT(RND*<15-LEN<Q*<X 
))))+l 

1400 *s;P=INT<RND*15) + l 

1410 GOTO 1480 

1420 REM ** WORD DOWN-RIGHT 

1430 HD=1 

1440 KfD=\ 

1450 HP=INT<RND*< 15-LEN<Q*<X 
>)))+l 

1460 VP=INT<RND*<15-LEN(Q*<X 
)>>>+l 

1470 GOTO 1480 
1480 REM ** CHECK WORD ** 
1490 REM PLACEMENT. ** 
1500 FOR M=0 TO LEN(Q*<X))-1 
1510 IF A*<HP+M*HD,VP+M*UD)= 

THEN 1530 
1520 IF A*<HP+M*HD,VP+M*'v'D)< 
>W*(X,M+1 )THEN 530 
1530 NEXT M 
1540 GOTO 540 
1550 CALL CLEAR 
1560 FOR X=l TO 15 
1570 FOR Y=l TO 15 
1580 A*<X,Y) ,B*<X,Y)="" 
1590 NEXT Y 
1600 NEXT X 
1610 GOTO 280 
1620 END 



BASEBALL TRIVIA QUIZ 

Test your knowledge of facts about Baseball from it's professional beginning right up to present. Two skill 
levels are available; the "Easy" multiple choice and the "Hard", fill in the answer. 25 randomly selected 
questions determine whether you are truly a Baseball Trivia Expert or not. The program is easily written so 
that you can add more of your own questions. 



100 REM **************** 
110 REM * BASEBALL * 
120 REM » TRIVIA QUIZ * 
130 REM * TI BASIC * 
140 REM * BY DON BUSCH * 
150 REM »CINCINNATI ,0H.* 
160 REM *COPYRIGHT 1983* 
1 70 REM **************** 
180 REM *INITIALIZATION* 
190 OPTION BASE 1 
200 RANDOMIZE 



210 RESTORE 

220 DIM Q*(42) ,AN*<42) ,Q<42) 

230 REM **INTRODUCTION** 

240 CALL CLEAR 

250 CALL SCREEN<15> 

260 PRINT " BASEBALL TRIU 

I A QUIZ" : " 

II 

270 PRINT "THIS QUIZ CONTAIN 
S FACTS" 
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280 PRINT "FROM BASEBALL^ S P 
ROFESSIONALBEGINNING TO THE 
PRESENT" 

290 PRINT "DAY. YOU WILL BE 
ASKED" 

390 PRINT "TWENTY-FI«v^E RANDO 
MLY CHOSEN QUESTIONS. YOU WI 
LL RECEIVE" 

310 PRINT "FOUR POINTS FOR E 
ACH CORRECT" 

320 PRINT "ANSWER, WITH A MA 
XIMUM SCOREOF ONE HUNDRED." 
330 PRINT : : :" HIT ANY 
KEY TO BEGIN" :::::::: 
340 CALL KEY<0,KEY,STA) 
350 IF STA=0 THEN 340 
360 REM »*SKILL LE^EL** 
370 CALL CLEAR 

380 INPUT "SKILL LEVEL, 1 OR 
2 : " : SK 

390 IF <SK<>1 )+<SK<>2)=-2 TH 
EN 370 

400 CALL CLEAR 
410 REM **READ Q&A** 
4?0 FOR A=l TO 42 
430 READ Q*(A) ,AN*<A) 
440 NEXT A 

450 REM **RANDOM CHOICE** 

460 FOR X=l TO 25 

470 QU=INT(RND*42)+1 

480 FOR RN=1 TO X 

490 IF Q(I^)=QU THEN 470 

500 NEXT m 

510 Q<X)=QU 

520 PRINT :STR*<X)&". "&Q*<Q 
U); 

530 IF SK=2 THEN 790 
540 PRINT "?" 

550 PRINT :"YOUR CHOICES ARE 

■ ■ 

560 REM **FAKE ANSWERS** 

570 FOR W=l TO 2 

580 FA=INT<RND*42)+1 

590 FK*(W)=AN*<FA) 

600 IF <FK*<W)=AN*<QU))+<FK* 

(W)=KF*< 1 > )+(FK*<W)=KF*(2) )= 

-1 THEN 580 

610 KF*<W>=FK*<W) 

620 NEXT W 

630 KF*<1)="" 

640 KF*<2)="" 

650 REM **PRINT CHOICES** 

660 FOR PR=1 TO 3 

670 PI=INT(RND*3)+1 




680 IF <PI=RP<1))+<PI=RP<2)) 

=-1 THEN 670 

690 RP<PR)=PI 

700 IF PI03 THEN 730 

710 PRINT AN*<QU) 

720 GOTO 740 

730 PRINT FK*<PI) 

740 NEXT PR 

750 RP<1)=0 

760 RP<2)=0 

770 PRINT 

780 REM *CORRECT ANSWER ?* 
790 INPUT C* 
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888 IF C*=AN*<QU)THEN 888 
818 REM * INCORRECT LOOP* 
828 CALL S0UND(1888,-3,28,11 
8,2) 

838 PRINT z'-THCiT IS INCORREC 

T.": :AN*<QU);'' I S THE" : " COR 

RECT ANSWER." 

848 FOR DELAY=1 TO 388 

858 NEXT DELAY 

868 GOTO 948 

878 REM ^CORRECT LOOP* 

888 CALL S0UND<1888,-5,12) 

898 PRINT :"TW^T IS CORRECT. 

n 

988 C0=C0+1 

918 FOR DELAY=1 TO 388 

928 NEXT DELAY 

938 REM *«NEXT QUESTION** 

948 PRINT :" — * — * — * — * — *- 

-* — * — * — " 

958 NEXT X 

968 REM **ENDIN6** 

978 PRINT " — * — * — * — * — * — 

* — * — * — " ; " — * — * — * — * — *- 

"*"""*""*""" S a S 

988 PRINT "YOU HAVE EARNED A 
SCORE 0F''!C0*4;" POINTS.": 

• ■ 

• m 

998 PRINT " — * — * — * — * — * — 
* — * — * — " • " — * — * — * — * — *- 
—*'-—* — * — " 

1888 PRINT " — * — * — *—*—*- 

-* — * — * — " ; : ! 

1818 FOR S0U=38 TO 1 STEP -1 

1828 CALL S0LND<58,-7,S0U> 

1838 NEXT SOU 

1848 CALL S0L^D<1888,-7,e) 

1858 CALL SCREEN<2) 

1868 FOR DELAY=1 TO 388 

1878 NEXT DELAY 

1888 CALL SCREEN<15> 

1898 PRINT " HIT ANY KEY TO 

PLAY AGAIN" 

1188 CALL KEY<8,KEY,STA> 

1118 IF STA=8 THEN 1188 

1128 FOR D=l TO 42 

1138 Q<D)=8 

1148 NEXT D 

1158 GOTO 198 

1168 REM **DATA FOR Q&A** 

1178 DATA "WHO mS PITCHED I 

N THE MOST (^ES","HOYT WI 

LHELM" 



1188 DATA "WHO HAS THE MOST 
CAREER SAVES" ," ROLL IE FINGE 
RS" 

1198 DATA "WHO PITCHED THE M 
OST CONSECUTIVE SHUTOUTS 

" ,"DOJ DRYSDALE" 
1288 DATA "WHO HAD THE LOJES 
T BAT- TING AVERAGE TO WIN 
A BAT- TING TITLE" 
1218 DATA "CARL YASTRZEMSKI" 
1228 DATA "WHO WAS THE MAhfr=»G 
ER OF THE 1969 NEW YORK ME 
TS" ,"GIL HODGES" 
1238 DATA "WHO Htf^D THE HIGHE 
ST BAT- TING AVERAGE NOT TO 
WIN A BATTING TITLE" 
1248 DATA "JOE JACKSON" 
1258 DATA "WHO hiAS THE ONLY 
PLAYER TO BE THE MOST VALUA 
BLE PLAYER IN BOTH THE N 

ATIONAL & ^srfiERIC^yvJ LEAGUES" 
1268 DATA "FRANK ROBINSON" 
1278 DATA "WHO HAD THE MOST 
BASE HITS IN ONE SEASON I 
N MAJOR LEAGUE HISTORY" 
1288 DATA "GEORGE SISLER" 
1298 DATA "WHO IS THE ONLY P 
ITCHER TO HAVE WC^ FOUR CY 
YOUNG AWARDS" 
1388 DATA "STEVE CARLTON" 
1318 DATA "WHICH PITCHER HAS 

THE LOWEST CAREER EARNED 

RUN AVERAGE" 
1328 DATA "ED WALSH" 
1338 DATA "WHO HAD THE HIGHE 
ST CAREER BATTING AVERA 

GE IN MAJOR LEAGUE HISTORY 
" ,"TY COBB" 

1348 DATA "WHO HAD THE HIGHE 
ST ONE- SEASON BATTING AVERA 
GE IN AMERICAN LEAGUE HIST 
ORY" ,"NAP LAJOIE" 
1358 DATA "WHICH PITCHER HAD 

THE MOST STRIKEOUTS IN 
NE SEASON IN BASEBALL H 

I STORY" , "NOLAN RYAN" 
1368 DATA "WHO WAS THE Y0LW6 
EST PLAYER EVER TO WIN A 

BAT- TING CHAMPICWSHIP" ," 
AL KALINE" 

1378 DATA "WHO HAD THE MOST 
HITS IN AMERICAN LEAGUE HIST 
ORY" ,"TY COBB" 
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1388 DATA "WHO HAD THE MOST 
CAREER STOLEN BASES IN MA JO 
R LEAGUE HISTORY SINCE 

1900" ,"LOU BROCK" 
1390 DATA "WHO HAD THE HI6HE 
ST ONE- SEASON BATTING AVERA 
GE IN MAJOR LEAGUE HISTORY 

SINCE 1900" 
1400 DATA "ROGERS HORNSBY" 
1410 DATA "WHO HIT THE MOST 
HOtAE RLNS IN AMERICAN LEA 
GUE HI STORY - 

1420 DATA "BABE RUTH" 
1430 DATA "WHO HAD THE MOST 
RIMS BATTED IN <RBI'S) IN 

C»nIE Gfi^E" 
1440 DATA "JIM BOTTOMLEY" 
1450 DATA "WHO HAD THE MOST 
DOUBLES IN mE SEASON" ," EARL 

WEBB" 

1460 DATA "WHO I^D THE MOST 
CAREER RmS BATTED IN (RBI' 
S)" ,"HANK fi^Rm^ 
1470 DATA "WHO WAS WALKED TH 
E MOST TIMES IN HIS CAREER" 

" &^BE RUTH" 
1480 DATA "WHO PLAYED IN THE 

MOST CC^NlSECUTIVE GAMES IN 

HIS CAREER" 
1490 DATA "LOU GEHRIG" 
1500 DATA "WHO WAS THE MOST 

VALUABLE PLAYER IN 1 
927, WHEN BABE RUTH HIT 6 
HmE RmS","LOU GEHRIG" 
1510 DATA "WHO HIT THE MOST 
HOME RmS IN ONE SEASC»^ I 
N MAJOR LEAGUE HISTORY" 
1520 DATA "ROGER MARIS" 
1530 DATA "WHO HAD THE HIGHE 
ST ONE- SEASON RUNS BATTED I 
N TOTAL IN AMERICAN LEAGUE H 

I STORY", "LOU GEHRIG" 

1540 DATA "WHO HAD THE HIGHE 

ST CWE- SEASC»Ni RUNS BATTED I 
N TOTAL IN MAJOR LEAGUE HIST 

ORY","WiCK WILSCM" 

1550 DATA "WHO HIT THE MOST 

CAREER HOME RLWS IN MAJOR L 

EAGUE HISTORY" 

1560 DATA "HANK AARCttvl" 

1570 DATA "WHICH PITCHER HAD 
THE MOST CAREER WINS IN 

MAJOR LEAGUE HISTORY" 



1580 DATA "CY YOLt^JG" 
1590 DATA "WHICH PITCHER HAD 
THE MOST CAREER LOSSES I 
N MAJOR LEAGUE HISTORY" 
1600 DATA "CY YOUNG" 
1610 DATA "WHO PITCHED IN TH 
E MOST ir^INGS IN HIS CAREE 
R IN MAJOR LEAGUE HISTORY 
" ,"CY Yomo" 

1620 DATA "WHO HAD THE LOWES 
T ONE- SEAS(»>J EARNED RLW 
ERASE IN |vtf!|TI(>iAL LEAGUE 
HISTORY SINCE 1900" 
1630 DATA "MORDECAI BRCHaW" 
1640 DATA "WHO HAD THE MOST 
CAREER SHUT-OUTS IN MAJOR L 
EAGUE HISTORY" 
1650 DATA "WALTER JOHNSC»nI" 
1660 DATA "WHO IS THE ONLY P 
ITCHER TO PITCH CONSECUTIVE 
NO-HIT (^ES" 

1670 DATA "JOhM>IY VANDERMEER 

a 

1680 DATA "WHO MADE THE MOST 
OUTS IN HIS CAREER" , "PETE 
ROSE" 

1690 DATA "WHO HAD THE MOST 

CAREER HITS IN NATI(>IAL LEA 

GUE HISTORY" 

1700 DATA "PETE ROSE" 

1710 DATA "WHO STOLE HOME TH 

E MOST TIMES IN HIS CAREER" 

"TY COBB" 
1720 DATA "WHO STOLE HmE TH 
E MOST TIMES IN C»ME SEASOJ 
IN MAJORLEAGUE HISTORY" 
1730 DATA "ROD CAREW" 
1740 DATA "WHO HAD THE LOt^GE 
ST CONSECUTIVE-GAME HIT 

TING STREAK IN MAJOR LEAG 
UE HIS- TORY", "JOE DIMAGGIO" 
1750 DATA "WHO SCORED THE MO 
ST RUNS IN HIS CAREER IN MAJ 
OR LEAGUE HISTORY" 

1760 DATA "TY COBB" 
1770 DATA "WHICH M^WiGER MfitA 
AGED THE MOST YEARS IN HI 
S CAREER" 
1780 DATA "CCMvlNIE MACK" 
1790 DATA "WHO WAS HIT BY PI 
TCHES THE MOST TIMES IN MA 
JOR LEAGUE HI STORY " 

1800 DATA "RON HIMT" 
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NOVEL T I 



A game or a vocabulary exercise? Actually it's both! It has unlimited variations, and since your participation 
controls input, it can be personalized to create the most outlandish story imaginable! Everyone will love this 
one. 



100 REM ****************** 

110 REM * novel TI * 

120 REM * TI BASIC * 

130 REM » BY TOM BANCHY * 

140 REM ^CINCINNATI jOHIO * 

150 REM * COPYRIGHT 1983 * 

160 REM ****************** 

170 REM **INITIALIZATION** 

180 CALL CLEAR 

190 DIM Q*<16) ,S*<16) 

200 RANDOMIZE 

210 CALL SCREEN<15) 

220 REM **DATA FOR INPUT** 

230 DATA "A NOLN " , "A PLURAL 

HOm ","AN ADJECTI'JE "."AN 
ADVERB " 

240 DATA "A PAST TENSE VERB 
" ,"AN EXCLAMATION " 
250 DATA "A NUMBER " , "A PERS 
","A PERSCtf^J IN THE ROOM 

u 

260 DATA "A FAMOUS PERSON 
"A PLACE " 

270 DATA "A FAMOUS BUILDING 
" ,"AN OCCUPATION 

II 

280 DATA "AN ANIMAL " , "A LIQ 
UID " , "A FOOD " 
290 FOR N=l TO 16 
300 READ S*<N) 
310 NEXT N 

320 REM ** INSTRUCT IONS** 
330 PRINT "THE OBJECT OF THI 
S GAME IS TO CREATE STRANGE 

AND OFTEN" 
340 PRINT "FUfve«4Y PASSAGES BY 

SUBSTI- " 
350 PRINT "TUTING WORDS OF A 

CERTAIN KIND ( ADJECTIVE , A 
DVERB,NOUN, " 

360 PRINT "ETC.) WITHOUT KNO 
WING THE " 

370 PRINT "CONTEXT OF THE SE 
NTENCE THATTHEY WILL END UP 
IN. YOU" 

380 PRINT "WILL BE ASKED TO 
GIVE A 



390 PRINT "SERIES OF WORDS 
F A SPECI- FIC TYPE AND THE 
COMPUTER" 

400 PRINT "WILL FILL THEM IN 
TO THE " 

410 PRINT "PARTIALLY COMPLET 
ED PASSAGE AND SHOW THE FINfii 
L PRODUCT" 

420 PRINT "ON THE SCREEN. HA 

VE FUN ! ! " 

430 PRINT :: "PRESS ANY KEY T 
START" 

440 CALL KEY<0,K,S) 

450 IF S=0 THEN 440 

460 CALL CLEAR 

470 R=INT(RND*5+1 ) 

480 PRINT "PLEASE GIVE WORDS 

OF THE FOLLOWING TYPE" 
490 ON R GOTO 630,950,1270,1 
530,1840 

500 PRINT "HERE ARE THE RESU 
LTS : " 

510 FOR T=l TO 500 
520 NEXT T 
530 CALL CLEAR 
540 RETURN 

550 PRINT "***************** 
*******«***" 

560 PRINT " PRESS CQ] TO QU 
IT OR ANY OTHER KEY TO TRY 
AGAIN WITH" 

570 PRINT "ANOTHER PASSAGE" 
580 CALL KEY<0,K,S) 
590 IF S=0 THEN 580 
660 IF K081 THEN 460 
610 END 

620 REM **1ST PASSAGE** 

630 RESTORE 640 

640 DATA 14,8,13,8,1,11,15,3 

,1,3,1,1 ,8,4,0 

650 GOSUB 2090 

660 GOSUB 500 

670 PRINT " ANOTHER HORRO 
R FLICK " : : 

680 PRINT "LAST NIGHT I SAW 
A MOVIE ON"::"T.V. THAT REAL 
LY GAVE ME" : : 
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690 PRINT Q*<1>;" PIMPLES ! 
IT STARRED" 

780 PRINT :Q*<2);" AS A MAD 
" ;Q*<3) : : "WHO FINDS OUT HOW 
TO CREATE" : : 

710 PRINT "ROACHES 18 FEET T 
ALL . " 

720 PRINT :"THE SCIENTIST HA 
S A STRANGE" :: "HELPER, PLAYED 

BY " ;Q*<4) ;" ." 
730 GOSUB 2170 

740 PRINT "HE GETS ANGRY BEC 
AUSE THE" 

750 PRINT : "SCIENTIST KEEPS 
POINDING HIM":: "ON THE HEAD 
WITH A " ;Q*<5) ;".":: 
760 PRINT "SO HE SETS THE RO 
ACHES FREE." 

770 PRINT :"imEDIATELY THEY 
BEGIN TO":: "EAT UP ";Q*<6); 
" . THE ARMY" : : 

780 PRINT "TRIES TO STOP THE 
M BY SPRAY-" 

790 PRINT :"ING THEM WITH "; 
Q*<7) ;" ." : :"BUT THAT DOESN'T 

KILL ANY OF" : : 
800 PRINT "THOSE ";Q*<8);" R 
CACHES." 
810 GOSUB 2170 
820 PRINT "THEY GO RIGHT m 
AND EAT" : :"INDI<^^iA. THEN THE 

AraiY DROPS" : : 
830 PRINT "AN ATOM-" jGrtK 9) ; " 

ON THEM" 
840 PRINT :"^^D THIS KILLS A 
LL OF THEM":: "BUT ENOWiO 
US ROACH, WHO- ; : 
850 PRINT "GRABS THE ";Q*(10 
> 

860 PRINT :" SCIENTIST AND JU 
MPS INTO A":: "DEEP CW!>SM." 
870 GOSUB 2170 

880 PRINT "THEN THE STRANGE" 
:: "HELPER TAKES OFF HIS COST 
WiE" 

890 PRINT :"^^D SAYS, "I WAS 
REALLY A "::Q*<11>;" FOR TH 
E C.I. A'":: 

900 PRINT "AND HE MARRIES TH 
E " 

910 PRINT :" SCIENTIST'S BEAU 
TIFUL" : :Q*<12) ;" WHO IS PLAY 
ED BY" : : 



920 PRINT Q*<13>;" AND THEY 

LIUE" : :Q*<14) ;" EVER AFTER." 

930 GOTO 550 

940 REM **2ND PASSAGE** 

950 RESTORE 960 

960 DATA 7,1,1,1,3,1,16,1,3, 

1 ,2,1 ,2,1 ,0 

970 GOSUB 2090 

980 GOSUB 500 

990 PRINT " MODERN SUPERS 
TITIONS" : : 

1000 PRINT "WHEN I WAS A KID 
" ;Q*<1) : :"YEARS AGO, WE BEL 
lEVED" : : 

1010 PRINT "IN SUPERSTITimS 
LIKE:" 

1020 PRINT :"'IT'S ALWAYS BA 
D LUCK TO":: "OPEN A<N) " ;Q*< 
2);" INDOORS.'":: 
1030 PRINT "AND 'IF YOUR " ;Q 
*(3);" ITCHES" 

1040 PRINT :",THAT MEl^«^^S A " 
;Q*(4) : :"WILL VISIT 3004. 'AN 
D'YOU'LL" : : 

1050 PRINT "HAVE ■;Q*<5);" L 
UCK IF YOU" 

1060 PRINT :"FIND A FOUR-LEA 
F-" ;Q*<6> 
1070 GOSUB 2170 
1080 PRINT "WE ALSO BELIEVED 
THAT IF YOU" :: "SPILLED " ;Q* 
(7) ;" AT THE" 

1090 PRINT : "TABLE, YOU MUST 
THROW SOME":: "OVER YOUR LEF 
T " ;Q*(8) ;" AND" : : 
1100 PRINT "TI^T IF YOUR " ;Q 
*<9) ;" TOE" 

1110 PRINT : "HURT-RAIN WAS 
N THE WAY. WE" :: "BELIEVED TH 
AT IF YOU BROKE A" : : 
1120 PRINT Q*<10>;", YOU WOU 
LD WMv'E" 

1130 PRINT :"7 YEARS OF BAD 

" ;Q*<11) ;" ." 

1140 GOSUB 2170 

1150 PRINT "KIDS TODAY HAVE 

MODERNIZED" : : " SUPERSTITI ONS 

L I KE :'IT'S" : : 

11 60 PRINT "BAD LUCK TO PLAY 

ON THE " 
1170 PRINT :" RAILROAD TRACKS 

RIGHT BEFORE":: "A ";Q*<12); 
" COMES IN. 'AND" : : 
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1180 PRINT ""DON'T THROW " ;Q 
■$(13)"" AT " 

1190 PRINT :" POLICE OFFICERS 
BUT REALLY- :: "THERE'S ONL 
Y ONE SUPERSTI-" : : 
1200 PRINT "TION I STILL BEL 
IEV;E IN." 
1210 GOSUB 2170 
1220 PRINT "WHENEVER I SAY S 
OMETHING" : :"ABOUT MY HEALTH, 

I ALWAYS" : : 
1230 PRINT "REMEMBER TO KNOC 
K ON A PIECE" 

1240 PRINT :''0F ";Q*<14);"." 

1250 GOTO 550 

1260 REM **3RD PASSAGE** 

1270 RESTORE 1280 

1280 DATA 2,12,3,9,3,9,7,4,3 

,1,1,1,1,4,6,3 

1290 GOSUB 2090 

1300 GOSUB 500 

1310 PRINT " THE TITLE 

BOUT " : : 

1320 PRINT "GOOD EVENING, BO 
XING" : :Q*<1) . I'M TALKING 
TO" : ! 

1330 PRINT "YOU FROM THE RIN 
GSIDE AT THE" 

1340 PRINT :■ FAMOUS ";Q*<2); 
" fi^D' 

1350 PRINT : "BRINGING YOU ON 
-THE-SPOT" :: "COVERAGE OF THE 

" 5Q*<3) : : 
1360 PRINT "MATCH BETWEEN RO 
CKY" 

1370 PRINT :Q*<4);- ^D THE 

- ;Q*<5> :: "WEIGHT CWtfiPION, K 

ILLER" : !Q*<6) ;" ." 

1380 GOSUB 2170 

1390 PRINT "AS THE BELL RING 

S" 

1400 PRINT :"FOR ROiM^D ";Q*< 
7> ;" ,ROCKY" : :"GOES ";Q*<8);" 
TO THE" : : 
1410 PRINT "MIDDLE OF THE RI 
NG *^D" 

1420 PRINT : "THROWS A<AN) "; 

Q*<9);" LEFT":: "TO KILLER'S 

" ;Q*<10) ;" ." 

1430 GOSUB 2170 

1440 PRINT :"BUT KILLER STOP 

S THE PUNCH" :: "WITH HIS " ;Q* 

<11> ;" AND HITS" : : 



1450 PRINT "ROCKY RIGHT ON T 
HE " ;Q*< 12) 

1460 PRINT :"WITH A SENSATIO 
NAL UPPERCUT" : : "THAT KNOCKS 
HIM FLAT ON HIS" : : 
1470 PRINT Q*(13>;". THE REF 
EREE IS" 

1480 PRINT :" COUNTING AND TH 

E CROWD IS" :: "YELLING ";Q*<1 

4) ;" , " ;Q*(15) ;"!":: 

1490 PRINT "WHAT A ";Q*<16); 

" MATCH THIS" 

1500 PRINT :"HAS BEEN." 

1510 GOTO 550 

1520 REM **4TH PASSAGE** 

1530 RESTORE 1540 

1 540 DATA 1,1,2,2,3,1,1,3,2, 

2,1,1,5,3,2,8 

1550 GOSUB 2090 

1560 GOSUB 500 

1570 PRINT " A POEM FOR C 
HRISTMAS" : : 

1580 PRINT "'TWAS THE NIGHT 
BEFORE" : : "CHRISTMAS AND ALL 
THROUGH" : : 

1590 PRINT "THE ";Q*<1);",N0 
T A CREATURE" 

1600 PRINT :"WAS STIRRING, N 
OT EVEN A(N)" : :Q*<2) ;" . THE 
" ;Q*<15) ;" WERE" : : 
1610 PRINT "HUNG BY THE FIRE 
PLACE WITH" 

1620 PRINT : "CARE, IN HOPE TH 
AT " ;Q*(16) : :"SOON WOULD BE 
THERE." 

1630 GOSUB 2170 

1640 PRINT "THE ";Q*<4);" WE 

RE TUCKED " 

1650 PRINT :"ALL ^UG IN THE 
IR - ;Q*<4> ::", WHILE VISICNS 
OF " ;Q*<5) ;"-":: 
1660 PRINT "PLUMS DANCED IN 
THEIR HEADS." 

1670 PRINT :"THEN UP ON THE 
" 5Q*(6) ;" ," : :"THERE AROSE SU 
CH A CLATTER , I " : : 
1680 PRINT "SPRANG FRC»i MY " 
;Q*<7) ;" TO" 

1690 PRINT :"SEE WHfas^T WAS TH 

E MATTER." 

1700 GOSUB 2170 

1710 PRINT "IT WAS ST. NICHO 

LAS, WITH HIS" :: "LITTLE ";Q*< 

8);" BELLY,":: 



35 



1728 PRINT "TI^T SHOOK WHEN 
HE LAUGHED," 

1738 PRINT z-'LIKE A BOWL FUL 
L OF ";Q*<9)::". HE SPOKE NO 
T A WORD, BUT- : : 
1748 PRINT "WENT STRAIGHT TO 

HIS WORK " 
1758 PRINT :"AND FILLED ALL 
THE " ;Q*(ie) : , THEN TURNED 

WITH A JERK." 
1768 GOSUB 2178 
1778 PRINT :«THEN LAYING HIS 

" ;Q*<11) 
1788 PRINT : "ASIDE OF HIS NO 
SE, AND GIV-"::"ING A NOD, U 
P THE " ;Q*<12) : : 
1798 PRINT "HE ROSE. AND I H 
EARD HIM" 

1888 PRINT !" EXCLAIM, AS HE 
" ;Q*<13) : :"OUT OF SIGHT, 
Q*<14) : : 

1818 PRINT "CHRISTMAS TO ALL 
, AND TO ALL":; "A GOOD NIGHT 

1828 GOTO 558 

1838 REM **5TH PASSAGE** 

1848 RESTORE 1858 

1858 DATA 2,1,3,2,3,1,3,18,2 

,1,8 

1868 GOSUB 2898 
1878 GOSUB 588 

1888 PRINT "LINCOLN'S GETTYS 
BURG ADDRESS" : : 
1898 PRINT "FOUR SCORE AND S 
EVEN YEARS" !! "AGO, OUR ";Q*<1 
);" BROUGHT":: 

1988 PRINT "FORTH THIS "; 
Q*(2>;" A" 

1918 PRINT :Q*(3);" NATICW C 
04CEIVED IN" : :"LIBERTY AND D 
EDICATED TO THE" : : 
1928 PRINT " PROPOSITI (>i THAT 
ALL" 

1938 PRINT :Q*<4);" ARE CREA 
TED " ;Q*(5) ;" ." 



1948 GOSUB 2178 

1958 PRINT "NCXJ WE ARE ENGAG 

ED IN A":: "GREAT CIVIL WAR T 

ESTING" 

1968 PRINT : "WHETHER THAT "; 
Q*<6);" OR"::"ANY ";Q*<6)5'' 
SO Cl^CEIVED" : : 
1978 PRINT "AND SO DEDICATED 

CAN LONG" 
1988 PRINT :" ENDURE. IT IS R 
ATHER FOR US":: "TO BE HERE D 
EDICATED TO THE" : : 
1998 PRINT Q*<7);" TASK REMA 
INING " 

2888 PRINT :" BEFORE US..." 
2818 GOSUB 2178 
2828 PRINT "SO THAT THIS NAT 
ION UNDER "::Q*<8);" SHALL H 
AVE" : : 

2838 PRINT "A NEW BIRTH OF F 
REEDOM" 

2848 PRINT :"AND IWM GOVERN 
MENT OF THE" : :Q*<9) j" ,BY THE 

" ;Q*<9) ;" ,AND" : : 
2858 PRINT "FOR THE ";Q*<9); 
" SHALL NOT" 

2868 PRINT :" PERISH FRCM THE 

" ;Q*(18) ;" ." 
2878 GOTO 558 
2888 REM **INPUT WORDS** 
2898 FOR N=l TO 16 
2188 READ R 
2118 IF R=8 THEN 2158 
2128 INPUT S*<R):Q*<N) 
2138 CALL CLEAR 
2148 NEXT N 
2158 RETURN 

2168 REM **T0 CONTINUE** 
2178 PRINT :"*PRESS ANY KEY 

TO cw^rriNUE*" 

2188 CALL KEY<8,K,S) 
2198 IF S=8 THEN 2188 
2288 CALL CLEAR 
2218 RETURN 
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BASIC MAGNIFY 



Did you ever wonder what an enlarged version of a single square character would look like? Easy to do in 
Extended Basic - but in Basic? With this program you can! As an added bonus, you can also produce the 
character's shadow a very interesting program. 



100 REM ***************** 
110 REM * BASIC MAGNIFY * 
120 REM * TI BASIC * 
130 REM *BY BOB WARTMAN * 
140 REM * PARK HILLS, KY.* 
150 REM *COPYRIGHT 1983 * 
160 REM ***************** 
170 CALL CLEAR 
180 REM **INITIALI2ATI0N** 
190 DIM Q<16) 

200 CALL CHAR<152,''FFFFFFFFF 
FFFFFFF") 

210 CALL CHAR < 153, ••183C7EFFF 
F7E3C18"> 

220 M*=" BASIC MAGNIFY" 

230 REM **CCWER SCREEN** 

240 FOR H=12 TO 16 

250 CALL C0L0R<H,1 ,1) 

260 NEXT H 

270 CALL SCREEN<16) 

280 FOR A=5 TO 27 

290 CALL HCHAR<A-4,A,152) 

300 CALL HCHAR<28-A,A,152) 

310 NEXT A 

320 CALL HCHARC 12,5, 153,23) 

330 CALL VCHARd ,16,153,24) 

340 FOR N=9 TO 15 

350 CALL HCHAR<N,13,120,7) 

360 NEXT N 

370 FOR N=10 TO 14 

380 CALL HCHAR<N, 14, 128,5) 

390 NE>T N 

400 FOR N=ll TO 13 

410 CALL HCHAR<N, 15, 136,3) 

420 NEXT N 

430 CALL HCHAR<12,16,144) 
440 M=100 

450 FOR H=15 TO 12 STEP -1 

460 M=M*<H/6) 

470 'v>=2+< <H-10)*3) 

480 CALL SOl^D<350,M,V,M+20, 

M,M+40,V) 

490 CALL C0L0R<H,7,7) 
500 NEXT H 

510 FOR H=15 TO 12 STEP -1 
520 CALL COLOR <H, 1,1) 
530 NEXT H 



540 CALL SOUND<230,-5,0) 

550 FOR N=l TO 13 

560 CALL HCHAR<12,9+N,ASC<SE 

6*<M*,N,1))) 

570 CALL COLOR< 16,7,1) 

580 CALL SOUND<20,-5,3+2*N) 

590 CALL C0L0R<16,12,1) 

600 NE>T N 

610 INPUT " PRESS 'ENTER" 

TO START" :W* 

620 REM **PROGRAM RUN** 

630 CALL CLEAR 

640 CALL C0L0R<14,1 ,1) 

650 CALL C0L0R<15,1 ,1) 

660 PRINT " ENTER THE HEXADE 

CIMAL CODE WITHOUT QUOTE 

S" : 

670 INPUT A* 

680 CALL CLEAR 

690 CALL COLOR< 13,2,1) 

700 CALL CHAR<128,A*) 

710 CALL HCHAR(4,4,128) 

720 FOR 1=1 TO LEN<A*) 

730 CALL HCHAR<4,6+I ,ASC<SEG 

*(A*, I , 1 ) ) ) 

740 NEXT I 

750 FOR 1=1 TO LEN<A*) 

760 Q<I)=ASC<SEG*<A*,I ,1)) 

770 NEXT I 

780 FOR S=l TO 2 

790 A=l 

800 B=15 

810 C=12-S 

820 R=10-S 

830 Z=142+S 

840 FOR I=A TO B STEP 2 
850 R=R+1 

860 IF Q<I)>64 THEN 880 
870 ON Q<I)-47 GOTO 1180,890 
,910, 930 , 950 , 970 , 990 ,1010,10 
30,1050 

880 ON Q(I)-64 GOTO 1070,109 

0,1110,1130,1150,1170, 

890 CALL HCHAR(R,C+3,Z) 

900 GOTO 1180 

910 CALL HCHAR(R,C+2,Z) 

920 GOTO 1180 
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938 CALL HCHAR<R,C+2,2,2) 

948 GOTO 1188 

958 CALL HCHAR<R,C+1 ,Z) 

968 GOTO 1188 

978 CALL HCHAR(R,C+1 ,2) 

988 GOTO 898 

998 CALL HCHAR<R,C+1 ,2,2) 



1 880 


GOTO 

WW 1 w 


1 1 88 






1818 


CALL 


HCHAR<R 


. C+ 1 . 


2 ,3) 


1828 


GOTO 


1188 






1838 


CALL 


HCHAR(R 


,C,2) 




1848 


GOTO 


1188 






1858 


CALL 


HCHAR<R 


,C,2) 




1868 


GOTO 


898 






1878 


CALL 


HCHARCR 


,C,2) 




1888 


GOTO 


918 






1898 


CALL 


HCHAR<R 


,C,2) 




1188 


GOTO 


938 






1118 


CALL 


HCHAR<R 


,C,2, 


2) 


1128 


GOTO 


1188 






1138 


CALL 


HCHAR(R 


,C,2, 


2) 



1148 GOTO 898 

1158 CALL HCHAR(R,C,2,3) 

1168 GOTO 1188 

1178 CALL HCHAR<R,C,2,4) 

1188 NEXT I 

1190 IF A=2 THEN 1258 

1200 A=2 

1210 8=16 

1220 C=16-S 

1230 R=10-S 

1240 GOTO 840 

1250 NEXT S 

1260 PRINT "PRESS 'ENTER' FO 
R SHADCW" : " & ANY OTHER KEY 
TO CONTINUE" 
1270 CALL COLORC 15,7,7) 
1280 CALL KEY<0,K,S) 
1290 IF S=0 THEN 1280 
1300 IF KOI 3 THEN 630 
1310 CALL C0L0R<14,15,15) 
1320 GOTO 1280 



MESSAGE BOARD 

Watch your message creep (or speed) across the middle of the screen from right to left, just like those special 
weather bulletins do on TV. The rest of the screen produces a neon sign effect, making this a very attention 
grabing program! 



100 REM******************* 
110 REM* MESSAGE BOARD * 
120 REM*TI EXTENDED BASIC* 
130 REM* BY ED YORK * 
140 REM*WEST CHESTER , OHI 0* 
150 REM* COPYRIGHT 1983 * 
160 REM******************* 
1 70 CALL CLEAR : : CALL SCREE 
N<5):: FOR A=0 TO 8 : : CALL 
C0L0R(A,16,5) 

180 NEXT A :s CALL C0L0R<9,5 
,5):: CALL HCHARC 1 , 1 , 96,320) 
190 CALL HC^^R< 14,1 ,96,352) : 
: DISPLAY AT<12,1) : " M 
ESSAGE BOARD" 

200 FOR B=l TO 5 : : GOSUB 40 
:: CALL C0L0R(9,C,5) : : FOR 

D=l TO 8 
210 A*=A*&"FF" :: CALL CHAR< 
96,A*):: NEXT D FOR E=16 
TO 1 STEP -2 



220 A*=SEG*(A*,1 ,E) : : CALL C 
h^R<96,A*):: NEXT E :: NEXT 
B : : CALL CLEAR 
230 DISPLAY AT<2,8) :"MESSAGE 

BOARD": :"THIS PROGR^i^i Ufc^^S 
DESIGNED TO" 

240 DISPLAY AT<6,1) :"ALLCft4 Y 

OU TO ENTER MESAGES" : :"0N T 

HE SCREEN HAVE THEM" 

250 DISPLAY AT< 1 0,1 ): "SCROLL 

ED ACROSS THE CENTER" 

260 DISPLAY AT<12,1):"0F THE 

SCREEN. YOU MAY 'v^ARY" 
270 DISPLAY AT(14,1) :"THE SP 
EED AT WHICH THE MESS-": :"A 
GE WILL BE SCROLLED." 
280 DISPLAY AT<24,3) : "PRESS 
ENTER TO CONTINUE." ;: CALL 
KEY<0,F,G) 

290 IF F013 THEN 280 ELSE C 
ALL CLEAR : : B*=" 
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380 C*=" " : : H=2 : : FOR 1=1 
TO 7 :: ACCEPT AT<H,1)SIZE( 
27) :D*( I ) 

310 H=H+2 :: D*< I )=D*( I )&C* 
: : E*=E*&D*< I ) : : NEXT I : : E 
*=B*&E*&B* 

320 DISPLAY AT<16,1) :"WHAT S 
PEED DO YOU WISH THE": :"MES 
SAGE TO BE SCROLLED: 25" 
330 ACCEPT AT<18,25)SIZE(-2) 
:J :i IF J<1 THEN 328 :: CAL 
L CLEAR 

340 FOR K=l TO < LEN< E*) -28) : 
: DISPLAY AT( 12, 1 ) :SEG*<E*,K 
,28) : : FOR L=l TO J 



350 NEXT L : : NEXT K : : CALL 
CHARC 96, RPT*<:"0" ,16>) 

360 CALL HCHARd ,i ,96,320) : : 
CALL HCHARC 14,1 ,96,352) 

370 FOR M=l TO 8 : : F*=F*&"F 

F" :: CALL CHAR< 96 , F*) : : NEX 

T M 

380 FOR N=16 TO 1 STEP -2 :: 
F*=SEG*(F*,1 ,N) : : CALL CHAR 
(96,F*) : : NEXT N 
390 GOTO 340 

400 RANDOMIZE :: C=INT(14*RN 
D)+2 :: IF C=5 THEN 400 ELSE 
RETURN 



INSTANT COMPOSER 



Follow the simple directions and you'll be creating interesting (if somewhat unusual) musical compositions in 
no time. Imagine your keyboard as a set of piano keys, and you're on your way to composing your first hit 
song! 



The following is a list of the keyboard usuage for this program. 

A=A T=D#E> 

W=A#B> G=E 

S=B H=F 

D=C U=F#G> 

R=C#D> J=G 

F=D l=G#A> 



FCTN 1 
FCTN 2= 
FCTN 
FCTN 
FCTN 
FCTN 
FCTN 8= 
FCTN E= 
FCTN X: 



Play Song 
List Song 
Delete Last Note 
Edit Notes 
Change Duration 
Change time 
Erase Song 
=Raise Octave 
=Lower Octave 
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Edit Notes - First list the song (FCTN 2) and determine which # note is to be changed. Then 
activate editor (FCTN 5) and enter the note #. Now you can change the note, duration and/or 
octave. 

Change duration - (FCTN 6) enter a number from 1 to 450. This will control the duration of 
each individual note as you enter it. 



100 
110 

120 
130 
140 
150 
160 
170 
180 
190 



REM **************** 
REM * MUSIC MAKER * 
REM * TI BASIC * 
REM * JAMES P. GLENN* 
REM * FLORENCE, KY.* 
REM *C0PYRI6HT 1983* 
REM **************** 
REM *INITIALIZATION* 
CALL CLEAR 



CALL CHAR < 129, "202030282 
42830" ) 

200 PRINT TAB( 10) ; "Musi c Mak 
€• r : 



210 DIM FREQ(4,14) ,KEE(96) ,N 
0TE*a3) ,FREEK(300) ,DR(300) , 
HOLDO00) 

220 REM **NOTES&NOTATIONS** 

230 FOR X=l TO 12 

240 READ KY*,NOTE*(X) 

250 KEECASCCKY*) )=X 

260 NEXT X 

270 KEE<32)=13 

280 NOTE* ( 13)=" PAUSE" 

290 REM *ASSIGN FREQUENCIES* 

300 FOR X=l TO 4 

310 FOR Y=l TO 12 
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320 READ FREQ<X,Y> 

330 NEXT Y 

340 FREQ<X,Y)=44733 

350 NEXT X 

360 DUR=100 

570 DELAY=100 

380 0C=1 

390 TOTAL=0 

400 FLAG=1 

410 PRINT TAB<7) ;"START COMP 
0SIN6" : : : : 

420 PR I NT : : TAB < 1 2 > ; " READY " : 

430 REM **BEGIN PROG** 

440 CALL KEY<3,K,S) 

450 IF SOI THEN 440 

460 REM *TEST FOR FCTN KEYS* 

470 IF < <K>64>+(K=32> >=-l TH 

EN 10 30 

480 IF K>48 THEN 660 

490 IF K>14 THEN 440 

500 ON K GOSUB 710,440,1120, 

900 , 440 , 360 , 850 , 440 , 440 ,618, 

610 ,530 ,440 , 1 180 

510 IF FLAG=1 THEN 440 ELSE 

1290 

520 REM **CHANGE DELAY** 
530 PRINT :: "CURRENT DELAY:" 
; DELAY 

540 PRINT "ENTER NEW DELAY": 

U - 450 > " 
550 INPUT " " : DELAY 

560 IF <DELAY<1>+(DELAY>450) 
=-1 THEN 550 
570 K=49 
580 GOSUB 660 
590 RETURN 

600 REM **SET OCTAk^E** 
610 0C=0C-<K=1 1 >+<K=10) 
620 OC=OC-<OC=0)+<OC=5> 
630 PRINT "OCTAME =" ;0C 
640 IF FLAGOl THEN 440 
650 RETURN 

660 REM *DURATION< 100-900)* 
670 DUR=(K-48>*DELAY 
680 PRINT "DURATION =" ;DUR 
690 GOTO 440 

700 REM **CHANGE DURATION** 
710 COUNTER=0 

720 PRINT :: "SEARCH AND CHAN 
GE DURATION" 

730 INPUT "ENTER SEARCH DURA 
TION: ": SEARCH 
740 INPUT "ENTER NEW DURATIO 
N: " :NEW_DUR 



750 PRINT " SEARCHING" 

760 FOR X=l TO TOTAL 

770 PRINT DR(X> 

780 IF DR<X><>SEARCH THEN 81 



790 DR<X)=NEW_DUR 
800 C0UNTER=C0UNTER+1 
810 NEXT X 

820 PRINT "SEARCHING COMPLET 
ED" : COUNTER ; " TOTAL CHANGES" 
: : " READY " : : 
830 RETURN 

840 REM **DELETE LAST NOTE** 
850 IF TOTAL=0 THEN 880 
860 PRINT "DELETING: TOTAL 
870 T0TAL=T0TAL-1 
880 RETURN 

890 REM **LIST SONG** 
900 CALL CLEAR 

910 PRINT " #" ;TAB<8> ; "NOTE" 

;TAB<15) ;"DUR" ;TAB<22) ;"FREQ 
ti 

920 FOR X=FLAG TO TOTAL 
930 PRINT X;TAB<8> ;NOTE*<HOL 
D<X)) ;TAB<14) ;DR<X) ;TAB(21) ; 
FREEK(X) 

940 CALL KEY<3,K,S) 

950 REM ** PAUSE OR QUIT** 

960 IF <S=1 )+<K=81 )=-2 THEN 

990 

970 IF SO0 THEN 940 
980 NEXT X 

990 IF FLAGOl THEN 1010 
1000 PRINT ::"** END LIST ** 
" :TAB<9) ;"PROCEDE" : : : 
1010 RETURN 

1020 REM **ARRAY&PLAY NOTE** 

1030 PS=KEE<K> 

1040 IF PS=0 THEN 440 

1050 T0TAL=T0TAL+1 

1060 HOLD(TOTAL)=PS 

1070 FREEK(TOTAL>=FREQ<OC,PS 

) 

1080 DR<TOTAL>=DUR 

1090 CALL SOUND<DUR,FREEK<TO 

TAL),0) 

1100 PRINT TAB( 10) ; "NOTE" ;T0 

TAL;" = " ; NOTE* < PS) 

1110 GOTO 510 

1 1 20 REM **PLAY SONG** 

1130 FOR X=l TO TOTAL 

1140 CALL SOUND ( DR ( X ) ,FREEK( 

X),0) 

1150 NEXT X 
1160 RETURN 
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1176 REM **EDIT NOTES** 

1180 IF FLAGOl THEN 449 

1190 PRIN"! :: "EDITOR ACTIVE" 

:"NOTE TO BE CHANGED"; 

1200 HOLD_T==TOTAL 

1210 INPUT TOT 

1220 IF T0T=81 I HEN 1300 

1230 TOTAL=TOT 

1240 FLAG=TOTAL 

1250 GGSUB 910 

1260 T0TAL=T0TAL-1 

1270 PRINT :: "ENTER NEW NOTE 
>■ . . 

1280 GOTO 440 

1290 TOTAL=HOLD_T 

1300 FLAG=1 

1310 GOTO 420 



1320 REM **DATA FOR NOTES** 
1330 DATA AjAjWj^AttjB^" ,S,B 
1340 DATA D,C,R,''Ctt,D_" ,F,D 
1350 DATA T,"D#,E_%G,E,H,F 
1 360 DATA U , " F# , G." , J , G 
1370 DATA I ,"G#,A_" 
1380 DATA 110,117,123,131,13 
9 , 1 47 , 1 56 , 1 65 , 1 75 , 1 85 , 1 96 
1390 DATA 208,220.233,247,26 
2 , 277 , 294 ,311, 330 , 549 , 370 

400 DATA 392,415,440,466,49 
4 , 523 , 554 , 587 , 622 , 659 , 698 
1410 DATA 740,784,831,880,93 
2 , 988 , 1 47 , 1 1 9 , 11 75 , 1 245 
1420 DATA 1319,1397,1480,156 
8, 1661 ,1760 
1430 END 



BILL FILING SYSTEM 

This program will print out a monthly update of your bills including the balance status. Ease of data input & 
program operation are big advantages in this program. When you are asked a question, the possible answers 
appear in the lower left hand corner of the monitor. Depressing the CTRL Key and a Number Key (1-4) will 
input your answer. 



100 REM****************** 
110 REM*BILL FILING SYST* 
120 REM* EXTENDED BASIC * 
130 REM* MARK COWAN * 
140 REM* CENTERVILLE,OH.* 
150 REM* COPYRIGHT 1983 * 
160 REM****************** 
170 REM** INSTRUCT I CW^JS** 
180 !THIS PROGRAM IS A BILL 
FILING SYSTEM TI^T IS 'v'ERY U 
SER FRIENDLY 

190 !IT STORES ALL BILLS ON 
THE CASSETTE AND OPTIONALLY 
200 ! PRINTS THEM OUT ON AN I 
MPACT PRINTER <PIO) 
210 !IT ALSO ALLOWS THE USER 
TO RECORD PAYMENTS AND PRIN 
T A SUMMARY CHART 
220 !0F THAT DAY'S TRANSACT I 
ONS 

230 DATE_ST*=''NO DATA STORED 
" NO-BILL=0 :: OPTION BAS 
El:: DIM D*(3,30) 
240 !OPEN #5:"PI0" 
250 !ALL DATA PRINTED ON IMP 
ACT PRINTER TO PARALLEL PORT 
OF RS232 CARD 



260 D I SPLAY AT( 1 , 1 > ERASE ALL 
:RPT*<''*" ,28) :- BILLS FILI 
NG SYSTEM" rRPT^C*" ,28) 
270 DISPLAY AT(22,1) :"ENTER 
TODAY'S DATE?" :: ACCEPT AT< 
24 , 1 ) BEEP : DATE* 
280 DISPLAY AT<22, 1 ) :RPT*< = 
" ,28) 

290 DISPLAY AT<1,1)ERASE ALL 
: " *********MAIN MENUE******* 
**" 

300 RESTORE 350 : : P=3 

310 FOR MEN=1 TO 6 

320 READ A* :: DISPLAY AT<P, 

1 ) :MEN;A*: 

330 P=P+2 

340 NEXT MEN 

350 DATA LIST BILLS, RECORD T 
RANSACT I ONS, REVISE BILL LIST 
360 DATA STORE BI LLS , RETRI 
E BILLS, QUIT 

370 DISPLAY AT<22,1)BEEP:"SE 
LECT OPERATION DESI RED?" : " (T 
HEN PRESS [ENTER])" 
380 ACCEPT AT<24,l)»v»ALIDATE< 
NUMERIC) :0P 

390 DISPLAY AT< 22,1) :" ":" " 
:: IF 0P<1 OR 0P>6 THEN 370 
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400 IF 0P=1 THEN CALL MENUEC 

"SELECT OUTPUT DEVI CE" , » SCRE 

EN-" , "PRINTER" ,"","" ,R) 

410 IF 0P=1 AND R=l THEN CAL 

L LST_BILL<NO_BILL,D*( ,) ,DAT 

E_ST* , DATE* , CNTR* ) 

420 IF 0P=1 AND R=2 THEN CAL 

L PRINT_BILL<NO_BILL,D*( ,) ,D 

ATE_ST* , DATE* , CNTR* ) 

430 IF 0P=2 THEN CALL TRANS< 

D*< , ) , DATE- ST* , DATE* ,NO-BI LL 

) 

440 IF 0P=3 THEN CALL EDIT_B 
ILL(NO_BILL,D*( ,)> 
450 IF 0P=4 THEN CALL DATA_0 
UT < NO-B I LL , DATE_ST* , DATE* , D* 
< ,) jCNTR*) 

460 IF 0P=5 THEN CALL DATA_I 
N<NO_BI LL , DATE- ST* , DATE* , D*< 
,) ,CNTR*) 

470 IF 0PO6 THEN 290 :: CAL 
L YESNO<"WANT TO STORE BILLS 
?" ,R) 

480 IF R THEN CALL DATA_OUT( 
NO_B I LL , DATE- ST* , DATE* , D* < , ) 
,CNTR*) 

490 CALL YESNO<"DO YOU WANT 
TO QUIT?",R):: IF R=0 THEN 2 
90 

500 END 

510 SUB DISP-INV<DISPl*,Ra41 

,C0L1 ,DISP2*,R0W2,C0L2) 

520 !DISP* CAmOT BE LONGER 

THAN 28 CHARACTERS 

530 CALL COLORdl ,1 ,2,12,1 ,2 

,13,1,2,14,1,2):: DIM CHAR*< 

28) 

540 DISP*=DISP1* :: C0L=C0L1 

:: R0W=R0W1 :: CPNT=112 
550 FOR L=l TO 2 :: IF DISP* 
="" THEN 660 

560 DLEN=LEN<DISP*) : : IF LEN 

(DISP1*&DISP2*)>28 THEN 680 

!END IF TO BIG 

570 FOR 1=1 TO DLEN 

580 CHAR*<I)=SEG*<DISP*,I ,1) 

:: NEXT I 

590 N-DISP*="" 

600 FOR 1=1 TO DLEN 

610 CALL Cf^RPAT<ASC<Ch^R*<I 

)) ,PAT*) 

620 CALL CHAR<I+CPNT,PAT*) 
630 N-DISP*=N-DISP*&CHR*<I+C 
PNT) 



640 NEXT I 

650 DISPLAY AT<ROW,COL) :N_DI 
SP* 

660 DISP*=DISP2* :: C0L=C0L2 
:: R0UI=R0W2 :: CPNT=112+DLE 
N+1 

670 NEXT L 
680 SUBEND 

690 SUB YESNO< QUEST*, R) 
700 R=0 

710 DISPLAY AT<22,1) :RPT*<" 
",84):: CALL DI SP-IN'JC " YES N 
0" , 24 , 1 , " " , 1 1 ) 
720 DISPLAY AT<22,1) :QUEST* 
730 CALL KEY<:4,KEY,ST) : : IF 
ST=0 THEN 730 :: IF KEY <> 177 

AND KEY <> 178 THEN 730 
740 IF KEY=177 THEN R=l 
750 DISPLAY AT<22,1) :RPT*<" 
" ,84) 

760 SUBEND 

770 SUB CONT(MES*) 

780 DISPLAY AT(22,1) :RPT*<" 

" ,84) 

790 CALL DISP-INV< "CONTINUE" 
,24,1 ,"" ,1 ,1) : : DISPLAY AT < 2 
2,1) :MES* 

800 CALL KEY<4,KEY,ST) : : IF 
ST=0 THEN 800 :: IF KEY0177 

THEN 800 
810 DISPLAY AT<22,1) :RPT*<'' 
" ,84) 

820 SUBEND 

830 SUB MENUE<QUEST*,A*,B*,C 
*,D*,R) 

840 DISPLAY AT<23,1):" " :: 
CALL DISP-INV(A*&B*&C*&D*,24 

850 DISPLAY AT<22,1) :QUEST* 
860 CALL KEY<4,KEY,ST) : : IF 
ST=0 THEN 860 

870 IF KEY<1 77 OR KEY) 180 TH 
EN 860 

880 IF A*<>"" mD KEY=1 77 TH 
EN R=l 

890 IF B*<>"" AND KEY=178 TH 
EN R=2 

900 IF C*<>"" AND KEY=1 79 TH 
EN R=3 

910 IF D*<>"" AND KEY=180 TH 
EN R=4 

920 DISPLAY AT(22,1) :RPT*<" 
" ,84) 

930 SUBEND 
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940 SUB EDIT_BILL<NO_BILL,D* 

<,)) 

958 ! SUB TO EDIT ANY PARAME 
TER OF BILL FILE 
960 CALL CLEAR :s DISPLAY AT 
< 1 , 1 ) : " ***********EDIT BILLS 

970 DISPLAY AT( 21 , 1 ): "ENTER 

COMPANY" :"<Q TO QUIT)" 

980 ACCEPT AT(24, 1 )BEEP:C01P 

^ :: IF COMP^^'-Q" THEN 1270 

990 FOR 1=1 TO NO_BILL 

1000 IF C0MP*=D*<1 jDTHEN 11 

80 

1010 NEXT I 

1020 DISPLAY AT( 18,1) BEEP :RP 
T^C %130):: DI SPLAY AT< 1 8 , 
l):"CC»1PmY NOT FOUND" 
1030 CALL YESNOC INPUTTING A 

NEW BILL?" ,R) 
1040 IF R=0 THEN 950 
1050 ! NEU BILL 
1060 FOR N-BILL=N0_BILL+1 TO 

25 

1070 60SUB 1280 

1080 ACCEPT AT(5,10)BEEP VAL 

IDATE<UALPI^) :D*<1 ,N_BILL) 

1090 ACCEPT AT<7,10)BEEP UAL 

I DATE<NUiERI C) : BI LL : : D*< 2 , 

N_BILL)=STR*<BILL) 

1100 ACCEPT AT (9,10) BEEP »v»AL 

IDATE<NmERIC) :BAL :: D*<3,N 

_BILL)=STR*<BAL) 

1110 CALL YESNO<" ENTER ANOTH 

ER BILL?" ,R) 

1120 IF R=0 THEN 1170 

1130 DISPLAY AT<5,1) :RPT*(" 

" ,120) 

1140 NEXT N_BILL 

1150 N^BILL=N_BILL-1 

1160 CALL CONTCNO MORE ROOM 

FOR MORE BILLS") 
1170 NO_BILL=N-BILL :: SUBEX 
IT 

1180 ! REUISE EXISTING BILLS 
1190 CALL MENUEC" SELECT PARA 
METER TO RE'JISE" , "COMPANY-" , 
"BILL-" ,"BAL.-" ,"ALL" ,R) 
1200 GOSUB 1280 
1210 IF R=l OR R=4 THEN ACCE 
PT AT<5,10)BEEP VALIDATE<UAL 
PHA) :D*<1 ,1) 

1220 IF R=2 OR R=4 THEN ACCE 
PT AT<7,10)BEEP VALI DATE<NLf1 
ERIC) :BILL 



1230 D*<2,I)=STR*(BILL) 
1240 IF R=3 OR R=4 THEN ACCE 
PT AT<9,10)BEEP 'v'ALI DATE<NLf1 
ERIC) :BAL 

1250 D*<3,I)=STR*<BAL) 
1260 GOTO 960 
1270 SUBEXIT 

1280 ! SUBROUTINE TO PRINT P 
ARAMETERS 

1290 DISPLAY AT<5,1) :RPT*<" 
" ,120) 

1300 DISPLAY AT<5, 1 ) : "COMPAN 
Y:" :: DISPLAY AT( 7,3) : "BILL 

1310 DISPLAY AT<9,4) :"BAL:*" 
1320 RETURN 
1330 SUBEND 

1340 SUB LST_BILL<NO_BILL,D* 
< , ) , DATE- ST* , DATE* , CNTR* ) 
1350 !LIST BILLS ON CRT 
1360 CALL CLEAR :: DISPLAY A 
T< 1 , 1 ) : "******»**BILL LISTIN 
G*»«****" 

1370 DISPLAY AT<5,1) COMPAN 
Y:" :: DI SPLAY AT< 7 , 3) : " BI LL 
:*" 

1380 DISPLAY AT(9,4) : "BAL:*" 
1390 IF D*(l,l)<>"" THEN 141 
:: DISPLAY AT< 10,1) BEEP:" 
NO BILLS STORED! ! ! " 
1400 CALL CONT<"") 
1410 FOR 1=1 TO NO_BILL 
1420 DISPLAY AT(5, 10) :D*< 1 , I 
) 

1430 DISPLAY AT<7, 10) :USING 

"###.##" :VAL<D*<2,I)) 

1440 DISPLAY AT<9,10) :USING 

"####.«#" :UAL(D*<3,I)) 

1450 IF I<NO_BILL THEN 1480 

1460 DISPLAY AT< 12,3) : "END 

F LISTING" 

1470 DISPLAY AT<14,1)BEEP:"D 

ATE STORED— > " : DATE_ST* : " STO 

RED ON — > " ;CNTR* 

1480 CALL CONT("") 

1490 NEXT I 

1500 CALL CLEAR 

1510 SUBEND 

1520 SUB TRANS<D*( , ) ,DATE_ST 
*, DATE*, NO_B ILL) 
1530 DIM TRAN<25,3):: PT=0 
1540 ! RECORD TRANSACTIONS fi^ 
D OPTICff^LLY PRINT ON FILE tt 
5 PREVIOUSLY STORED 
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1558 CALL CLEAR :: DISPLAY A 
T < 1 , 1 ) : " ********TRANSACT I ONS 

1568 DISPLAY AT< 21 ,1) ENTER 
COMPANY'S NAME":"<Q TO QUIT 
)" 

1578 ACCEPT AT< 24 , 1 ) BEEP : COM 
P* IF COMP*=-Q" THEN 1778 
1588 FOR 1=1 TO NO^BILL 
1598 IF D*<1 ,I)=COMP* THEN 1 
638 

1688 NEXT I 

1618 PRINT "NO SUCH COMPANY" 
1628 CALL SOUNDC 2888, 48888, 3 
8):: CALL SOUND< 1 , 48888 , 38 ) : 
: GOTO 1558 
1638 PT=PT+1 

1648 DISPLAY AT(21,1): : : 

1658 DISPLAY AT<5,1>:''» ";C0 

MP* :: DISPLAY AT< 22,1) :"ENT 

ER PAYMENT" 

1668 TRAN(PT,n = I 

1678 ACCEPT AT< 24 , 1 ) VALI DATE 

(NUMERIC) :TRAN<PT,2) 

1688 DISPLAY AT<7,1):'' PAYM 

ENT *" ;TRAN(PT,2) 

1698 DISPLAY AT< 22 , 1 ):" ENTER 

CHECK NUMBER" 
1788 ACCEPT AT< 24 , 1 )V^ALI DATE 
<Nl^ERIC) :TRAN<PT,3) 
1718 DISPLAY AT<9,1):" C 
K NO. " ;TRAN<PT,3) 
1728 CALL YESNO<"IS THIS COR 
RECT?-,R):: IF R THEN 1748 
1738 DISPLAY AT< 5,1) : : : :: 

GOTO 1658 
1748 IF i^L<D*(3,I))<>e THEN 

BAL=VAL( D* < 3 , 1 ) ) -TRAN< PT ,2) 
ELSE 1558 

1758 DISPLAY AT< 1 2 , 1 ) : "NEW B 

ALANCE:*- DISPLAY AT(12,1 

5):USING :BAL 

1768 D*<3,I)=STR*<BAL) : : CAL 

L CONTC") : : GOTO 1558 

1778 DISPLAY AT<21,1):" " :: 

IF PT THEN CALL YESNO<"PRIN 
T TRANSACTIONS?" ,R) 
1788 IF R=8 THEN SUBEXIT 
1798 ! PRINT «5:CHR*<12) 
1888 PRINT tt5:RPT*<"*" ,88) :T 
AB<31 ) ;"TRANSACTIC»NJ REPORT" 
1818 PRINT #5:TAB<32) ;"DATE: 

" ; DATE* : RPT*< " 88 ) 



1828 PRINT #5:" ";"BILL";T 
AB<19) ;"C01PANY» ;TAB<42) ; "PA 
YMENT " ; TAB ( 66 ) ; " CHECK # " 
1838 PRINT #5:CHR*<18) 
1848 FOR 1=1 TO PT 
1858 PRINT #5:" ";I;TAB<17) 
;D*(1 ,TRAN<I ,1)) ;TAB<48) ; "*" 

• 

f 

1868 PRINT #5:TRAN<I ,2) ;TAB< 
65) jTRANd ,3) 
1878 NEXT I 

1888 PRINT #5:CHR*<12) 
1 898 CALL CLEAR : : SUBEND 
1988 SUB PR I NT_B ILL (NO-BILL, 
D*( , ) , DATE_ST* , DATE* , CNTR*) 
1918 "PRINT BILLS ON PRINTER 
ON FILE #5 PREVIOUSLY DECLA 
RED 

1928 CALL CLEAR :: DISPLAY A 
T( 1 , 1 ) : " ********PRINT BI LLS» 

1938 IF D*( 1,1 )<>'•" THEN 195 
8 

1948 PRINT "NO BILLS STORED! 
! " : : SUBEXIT 

1958 PRINT #5:RPT*("*" ,88) :T 
AB(31) ; "BILLS LISTING" 
1968 PRINT #5: "DATE: ";DATE* 
:RPT*( "*" ,88) 

1978 ULCm=CHR*(27)&CHR*(88) 
: : ULOFF*=CHR* ( 27 ) &CHR* ( 89 ) 
1988 ! PRINT tt5 : RPT*( CHR*( 1 8 ) 
,3) ;ULON*;"BILL" ;ULOFF*;TAB( 
17) ;ULON*;"CCWP" jULOFF*; 
1998 IPRINT #5:TAB(44) ;ULON* 
;"BILL" ;UL0FF*;TAB(61) jULON* 
; "BALANCE" ;ULOFF* 
2888 PRINT tt5:" BILL" ;TAB( 
28) ;"COMP*itf^JY" ;TAB(47) ;"BILL" 
;TAB(65) ;" BALANCE" 
2818 PRINT #5sRPT*(CHR*(18) , 
2) 

2828 FOR 1=1 TO NO_BILL 
2838 PRINT #5:CHR*( 18) ; " ";I 
;TAB(18) ;D*(1 ,1) ;TAB(45) ; "*" 
;D*(2,I) : :"*" ;D*(3,I) 
2848 NEXT I 

2858 PRINT #5 : RPT*( CHR*( 1 8 ) , 
3); "DATE STORED — > " ;DATE-_ST 
* 

2868 "STORED LOCATie»>J — > ";C 
NTR* 

2878 PRINT #5:CHR*(12) 
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2888 SUBEND 

2898 SUB DATA_IN<NO_BILL,DAT 
E_ST* , DATE* , D*< , > , CNTR*> 
2180 ! INPUT DATA FROM CASSET 
T 

2118 CALL CLEAR :: OPEN tt2:" 
CSl" jSEQUENTIAL, INTERNAL, I NP 
UT , FIXED 128 

2128 INPUT tt2:DATE_ST*,N0_BI 
LL,CNTR* 

2138 FOR 1=1 TO NO_BILL 
2148 INPUT tt2:D*<l ,1) ,D*<2,I 
) ,D*(3,I) 
2158 NEXT I 
2168 CLOSE #2 

2178 IF K38 THEN 2188 :: PR 
INT "DATA IS FULL! " 
2188 SUBEND 



2198 SUB DATA-OUT <NO_B ILL, DA 

TE_ST* , DATE* , D*< , ) , CNTR*) 

2288 DATE_ST*=DATE* 

2218 !THIS OUTPUTS DATA TO C 

ASSETT 

2228 CALL CLEAR :: PRINT "EN 
TER TAPE LOCATION" 
2238 INPUT "FOR STORED DATA- 
-> ":CNTR* 

2248 OPEN ttl :"CS1" ,SEQUENTIA 
L, INTERNAL, OUTPUT, FIXED 128 
2258 PRINT #1 : DATt_ST* ,NO_BI 
LL , CNTR* 

2268 FOR 1=1 TO NO_BILL 
2278 PRINT #1 : D*< 1 , I ) , D*< 2 , I 
) ,D*<3,I) 
2288 NEXT I 

2298 CLOSE #1 : : PRINT 
2388 SUBEND 



DOODLE 



Create your own colorful Linear Designs with this fun and easy to use program. Change colors and directions 
at will. Use it to simply "Doodle" or as an educational aid by designing cars, trees etc., for teaching children 
image recognition. Joysticks used and you can save your creations! 



188 
118 
128 
138 
148 
158 
168 
178 
188 
198 
288 
218 
228 



REM «««««««««««««««« 
REM » DOODLE » 
REM * TI BASIC * 
REM * BY D€N BUSCH * 
REM «CINCINNATI ,0H.* 
REM *COPYRIGHT 1983* 
REM 

REM **INITI ALI ZATI ON** 
CALL CLEAR 

DIM BLK<24,32) ,A*<24) 
CALL SCREEN<15) 
REM ** I NSTRUCT I OJS** 
PRINT " DOODLE 



238 PRINT "THIS PROGRAM WILL 

ALLCW YOU TO DRAW WHATEVER 
YOU WISH TO" 

248 PRINT "DRAW ON THE SCREE 
N. YOU DW" 

258 PRINT "ALSO CH^irf^GE THE C 
OLOR OF YOUR LINE."::: 
268 PRINT -HIT ■&CHR*<34)&" 1 
"&CHR*<34)&" TO SAVE Wrt^T YO 
U'VE" 

278 PRINT "DRAWN ON TO A CAS 
SETTE . " : : : 

288 PRINT "HIT ANY KEY FOR I 
NSTRUCTIONS" ::::::::: 



298 CALL KEY<8,KEY,STA) 

388 IF STA=8 THEN 298 

318 CALL CLEAR 

328 CALL SCREEN (15) 

338 PRINT " DRAWING K 

EYS" : : 

348 PRINT " E=DRAW NORTH 

" :" X=DRAW SOUTH" :" 

D=DRAW EAST" 

358 PRINT " S=DRAW WEST" 

:" R=DRAW NORTHEAST" 

368 PRINT " W=DR^iAJ NORTH 

WEST"!" Z=DRAW SOUTHEAST 

u 

378 PRINT " C=DRAW SOUTH 

WEST":" H=CHANGE LINE INTO E 
RASER" ! : 

388 PRINT " COLOR KE 

YS" : : " J=BLACK K=MEDI Lti 

GREEN" 

398 PRINT "I=DARK BLUE U=L 
IGHT GREEN" 

488 PRINT "0=LIGHT BLUE 7=D 
ARK RED"!"8=CYAN 9=ME 
DIUM RED" 

418 PRINT "8=LIGHT RED P=D 
ARK YELLOW" 
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420 PRINT " ,=r^6Eh4TA .=D 
ARK GREEN":" L=LI6HT YE 

LLCW" 

438 PRINT :"HIT KEY TO B 

EGIN DRAWING** 
448 CALL KEY<8,KEY,STA> 
450 IF STA=0 THEN 440 
460 CALL CLEAR 
470 PRINT "DO YOU WISH TO RE 
PRINT DATA PREVIOUSLY STORED 
ON A" 

480 INPUT " CASSETTE <Y OR N)? 
" :STO* 

490 IF SEG*<ST0*,1 ,1)="Y" TH 
EN 1310 

500 CALL CLEAR 

510 REM *DEFINE CI^RACTERS* 

520 FOR X=33 TO 138 STEP 8 

530 CALL CHAR(X,"FFFFFFFFFFF 

FFFFF") 

540 NEXT X 

550 FOR Y=l TO 14 

560 CALL C0L0R<Y,Y,1) 

570 NEXT Y 

580 CH=41 

590 CALL Crt!=iR<40,''18183CFFFF 
3C1818") 

600 CALL SCREEN<15) 
610 R=12 
620 C=16 

630 CALL HCHAR<R,C,40) 

640 REM **KEYSD=rf>4«* 

650 CALL KEY<2,K1,S1) 

660 CALL KEY<1,K2,S2) 

670 IF <S2=0>+<Sl=0>=-2 THEN 

650 
680 RR=R 
690 CC=C 

700 REM *»MCWEMENT** 
710 IF K2=19 THEN 1170 
720 IF S1O0 THEN 740 
730 K1=KT 

740 IF K205 THEN 770 

750 R=R-1 

760 GOTO 1020 

770 IF K202 THEN 800 

780 C=C-1 

790 GOTO 1020 

800 IF K203 THEN 830 

810 C=C+1 

820 GOTO 1020 

830 IF K204 THEN 870 

840 R=R-1 

850 C=C-1 



860 GOTO 1020 

870 IF K206 THEN 910 

880 R=R-1 

890 C=C+1 

900 GOTO 1020 

910 IF K2015 THEN 950 

920 R=R+1 

930 C=C-1 

940 GOTO 1020 

950 IF K2014 THEN 990 

960 R=R+1 

970 C=C+1 

980 GOTO 1020 

990 IF S1O0 THEN 1020 

1000 R=R+1 

1010 REM ^DETERMINE CHAR* 
*AND IT'S COLOR* 
1020 IF <K1>14)+<K1<1)=-1 TH 
EN 1040 

1030 CH=25+<K1*8) 

1040 CALL HCHAR<RR,CC,CH) 

1050 KT=K1 

1060 REM **WRAP-AROlf<JD** 
1070 IF R<=24 THEN 1090 
1080 R=R-24 

1090 IF R>=1 THEN 1110 
1100 R=R+24 

1110 IF C<=32 THEN 1130 
1120 C=C-32 

1130 IF C>=1 THEN 1150 
1140 C=C+32 
1150 GOTO 630 

1160 REM **CASSETTE SAVE** 

1170 FOR ROi4=l TO 24 

1180 FOR C0L=1 TO 32 

1190 CALL GCrtiS|R<Raj,COL,BLK< 

RCHOjCOD) 

1200 A*<RCW)=A*<RCW>&CHR*<BL 
K< ROW, COD) 
1210 NEXT COL 
1220 NEXT ROJ 

1230 REM **PRINT TO TAPE** 
1240 OPEN #1 :"CS1" jSEQUENTIA 
L, INTERNAL, OUTPUT, FIXED 192 
1250 FOR RCHJ=1 TO 24 
1260 PRINT #1:A*<R0W) 
1270 NEXT RCftJ 
1280 CLOSE #1 
1290 END 

1300 REM **READ FRCW TAPE** 
1310 OPEN #2:"CS1" ,SEQUENTIA 
LjINTERhWLjINPUT , FIXED 192 
1320 FOR R0W=1 TO 24 
1330 INPUT tt2;A*<RCHA)) 
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1 340 


NEXT ROW 


I HJlv 


iNtA 1 UUL 


1 350 


CLOSE #2 


1 43B 


NEXT ROW 


1360 


REM **PRINT SCREEN** 


4 yi >l A 

1 440 


REM **RESET A*=0** 


1370 


CALL CLEAR 


1450 


FOR RD=1 TO 24 


1380 


FOR R0W=1 TO 24 


1 460 


A*< RD) = '' " 


1390 


FOR C0L=1 TO 32 


1470 


NEXT RD 


1400 


B*=SEG*<A*(ROW) ,COL,n 


1480 


GOTO 520 


1410 


CALL HChWR<RCftJ,COL,ASC< 















FLASHCARDS 

A fantastic program that initiates early familiarization with every letter of the Alphabet, all the numbers and 
keyboard symbols, in addition to creating a friendly feeeling between a child and his 1st Computer 
experience! All the Characters are magnified for easy recognition and if you have a speech synthesizer it will 
even call them off! An absolutely fantastic educational tool for toddlers to grade-schoolers. 



100 REM***************** 
110 REM* FLASH CARDS * 
120 REM*EXTENDED BASIC * 
130 REM* BOB WARTMAN * 
140 REM* PARK HILLS,KY.* 
150 REM*COPYRIGHT 1983 * 
160 REM***************** 
170 CALL CLEAR :: RANDOMIZE 
:: RESTORE :: CALL MA6NIFY(2 
) : : DIM B< 16) 

180 CALL C0L0R<9,16,16) : : CA 
LL C0L0R<12,7,16) 
190 CALL CHAR< 123, " 187E7EFFF 
F7E7E18"):: Q*="PRESS ANY KE 
Y TO START" 

200 REM**COVER DISPLAY** 
210 FOR 1=1 TO 9 STEP 2 :: C 
=INT<RND*14)+2 :: S=INT<I^D* 
25)+97 

220 CALL SPRITE(#I ,S,C,C*10, 
1 ,50 ,50) 

230 CALL KEY<0,K,L):: IF L<> 
THEN 300 

240 CALL SPRITE<#I+1 ,S+1 ,C,C 
*10,1 ,50,-50) : : NEXT I 
250 IF R>1 THEN 210 :: R=l s 
: D=16 

260 FOR 1=19 TO 28 :: READ S 
:: CALL SPRITE< ttl , S , 7 , R , D) 

270 D=D+22 :: R=R+16 :: NEXT 
I 

280 DISPLAY AT<22,2):Q* : : C 

ALL SAY(Q*):: GOTO 210 

290 DATA 70,76,65,83,72,67,6 

5,82,68,83 



300 REM**MAIN MENU** 
310 CALL DELSPRITE(ALL) : : D= 
:: DISPLAY AT<4,7)ERASE AL 
L: "FLASH CARDS" 
320 DISPLAY AT(9,4):"1. AUTO 
SEQUENCE" :: DI SPLAY ATC 1 1 , 
4): "2. PROMPT SEQUENCE" 
330 DISPLAY AT(13,4):"3. PRO 
MPT RANDOM" :: DISPLAY AT<15 
,4) : "4. PICK A CARD" 
340 ACCEPT AT (20, 2) BEEP UALI 
DATE< " 1234" ) :CC :: IF CC=4 T 
HEN 720 

350 REM**DRAW CARD** 

360 DISPLAY AT ( 22, 1 ) ERASE AL 

L: "PRESS 'ENTER' FOR MAIN ME 

NU" 

370 X=65 :: Y=90 :: IF CC=1 
THEN 390 

380 DISPLAY AT(23,1):"0R ANY 
OTHER KEY TO CONTINUE" : : I 
F CC=3 THEN 680 
390 FOR H=X TO Y 
400 FOR CB=5 TO 18 :: CALL H 
CHAR<CB,11 ,97,9) : : NEXT CB : 
: CALL CHARPAT<H,A*) 
410 FOR 1=1 TO 16 :: B(I)=AS 
C<SEG*(A*, I , 1 ) ) : : NEXT I 
420 K=l :: L=15 :: R=7 :: C= 
12 

430 FOR I=K TO L STEP 2 : : R 
=R+1 

440 IF B<I)>64 THEN 460 
450 ON B<I)-47 GOTO 620,470, 
480 , 490 , 500 , 51 , 520 , 530 , 540 , 
550 



hi 



468 ON B<I)-64 GOTO 568,578, 

588,598,608,618 

478 CALL HCHAR<R,C+3,123) : : 

GOTO 628 

488 CALL HCHAR(R,C+2,123) : : 
GOTO 628 

498 CALL HCHAR<R,C+2, 123,2) : 
: GOTO 628 

508 CALL HCHAR<:R,C+1 ,123) : : 
GOTO 628 

518 CALL HCHAR<R,C+1 , 123) : : 
GOTO 478 

528 CALL HCHAR<R,C+1 ,123,2) : 
: GOTO 628 

538 CALL HCHAR<R,C+1 ,123,3) : 
: GOTO 628 

540 CALL HCHAR(R,C,123) : : GO 
TO 628 

558 CALL HCHAR<R,C,123) : : GO 
TO 478 

568 CALL HCHAR<R,C,123) : : 60 
TO 488 

578 CALL HCHAR<R,C,123) : : GO 
TO 498 

588 CALL HCHAR<R,C, 123,2) : : 
GOTO 628 

598 CALL HCHAR<R,C, 123,2) : : 
GOTO 478 

680 CALL HCHAR<R,C, 123,3) : : 
GOTO 620 



610 CALL HCHAR<R,C, 123,4) 
620 NEXT I : : IF K=2 THEN 63 
:: K=2 :: L=16 :: R=7 :: C 
=16 : : GOTO 430 
630 CALL SAY<CHR*<H)) : : IF C 
C=4 THEN 718 :: IF CCOl THE 
N 678 

648 FOR DELAY=1 TO 38 : : CAL 
L KEY<3,K,S):: IF K=13 THEN 
388 

658 NEXT DELAY 
668 NEXT H 

670 CALL KEY(0,K,S):: IF K=l 

3 THEN 300 :: IF 3=0 THEN 67 

: : IF CC=2 THEN 660 

680 ON INT<RND*4)+1 GOTO 690 

,700,690,690 

690 H=INT(RND*26)+65 :: GOTO 

400 

700 H=INT<RND*10)+48 :: GOTO 

400 

710 IF D>0 THEN 740 

720 DISPLAY AT( 28 , 1 ) ERASE AL 

L: "PRESS « OR LETTER YOU DES 

IRE" 

730 DISPLAY AT< 21 , 1 ): "PRESS 

"ENTER' FOR MAIN MENU" 

740 D=l :: CALL KEY<0,H,S):: 

IF S=0 THEN 740 :: IF H=13 
THEN 300 ELSE 400 



BYTE MAN 

An excellent adaptation of the most popular video game ever written. Does anything more need to be said? 
The Programmer did such and excellent job that this one will really astound you! Keyboard or joysticks 



««««««««««««««««« 

* BYTE MAN * 

* EXTENDED BASIC* 

* BY TOM BANCHY * 
*CINCINNATI ,OHIO* 

* COPYRIGHT 1983* 
***************** 

** INSTRUCT IONS** 



100 REM 
110 REM 
128 REM 
138 REM 
148 REM 
150 REM 
160 REM 
170 REM 
180 

:"THE OBJECT OF "BYTE MAN' I 
S" 

190 DISPLAY AT<2,1) :' 
YOU MOVE THE HUNGRY 
GUY AROUND THE MAZE,' 
200 DISPLAY AT<4, 1 ) : 
NG HIM WITH DOTS TO" 
210 DISPLAY AT( 5, 1 ): "GOBBLE 
AND SCREENS TO CLEAR, WHILE A 
T THE SAME TIME PRO-" 



SIMPLE. 
LITLLE 

PROVIDI 




HQ 



220 DISPLAY ATC7, 1 ) : "TECTING 
HIM FROM THE GHOSTS WHO WOU 
LD LO'v'E TO CATCH HIM" 
230 DISPLAY AT(9,1):"IN A SA 
NDWICH TRAP. ONE POINT I 

S SCORED PER DOT GOB-" 
240 DISPLAY AT< 1 1 , 1 ) I "BLED A 
ND 500 POINTS ARE SCORED 

FOR CLEARING A WHOLE" 
250 DISPLAY AT< 13, 1 ): "SCREEN 
. GOOD LUCK! ! **HI 
T ANK KEY TO START**" 
260 CALL KEY<0,KK,SS) : : IF S 
S=0 THEN 260 
270 CALL CLEAR 
280 REM **INITIALI2ATICN** 
290 DIM X<2) ,Y<2) ,E<2) 
300 CALL SCREEN<2):: FOR T=l 
TO 13 CALL COLOR<T , 1 2 , 1 ) 
: : NEXT T 

310 CALL C0L0R<14,6,1) : : CAL 
L CHAR<122,"'') 

320 CALL CHAR<128,RPT*("F" ,1 
6)> 

330 CALL CHAR<129,"3E67E4F8F 
8FC7F3E") 

340 CALL CHAR ( 130, "3C7EFFF9F 
9E7C342") 

350 CALL CHARdSl ,"7CE6271F1 
F3FFE7C" ) 

360 CALL CHAR< 132, "42C3E79F9 
FFF7E3C") 

370 CALL CHAR( 134, "000000181 
8") 

380 CALL CHAR< 140 , "3C7E9999F 

FFFFFA5") 

390 L=3 

400 A=0 :: B,E(1),E<2)=1 :: 
CHAR=129 :: DOT=0 :: R=16 
410 C=17 :: X<1),X<2)=13 :: 
Y<1>=3 : : Y<2)=30 
420 REM **DRAW SCREEN** 
430 RESTORE 510 
440 CALL HCHARd ,1 ,128,64) 
450 CALL HCHAR(23,1 ,128,64) 
460 FOR RR=1 TO 14 STEP 13 : 
: FOR CC=1 TO 31 STEP 30 : : 
CALL VCHAR<RR,CC, 128, 1 1 ) 
470 CALL <v'CHAR<RR,CC+l ,128,1 
1 ) : : NEXT CC : : NEXT RR 
480 FOR DD=1 TO 9 : : READ Rl 
,R2,R3,R4 :: CALL HCHAR<R1 ,R 
2,R3,R4):: NEXT DD :: CALL U 
CHARCll ,13,128,4) : : CALL 'v'CH 
AR<11 ,20,128,4) 



490 FOR DD=1 TO 5 : : READ Rl 
,R2,R3,R4 :: CALL HCHAR<:R1,R 
2,R3,R4) : : NEXT DD 
500 REM **DATA TO^ DRAW** 

**SCREEN** 
510 DATA 3,13,128,8,4,13,128 
,8,21 ,13,128,8,22,13,128,8 
520 DATA 6,13,128,8,7,13,128 
,1 ,7,20,128,1 ,8,13,128,8 
530 DATA 10,13,128,8,15,13,1 
28 , 8 , 1 7 , 1 3 , 1 28 , 8 
540 DATA 18,13,128,1,18,20,1 
28,1 ,19,13,128,8 
550 DATA 4,0,128,8,5,0,128,1 
,5,7,128,1 ,6,0,128,8 
560 DATA 8,0,128,8,9,0,128,1 
,9,7,128,1 ,10,0,128,8 
570 DATA 12,0,128,8,13,0,128 
, 8 , 1 5 , , 1 28 , 8 , 1 6 , , 1 28 , 1 
580 DATA 1 6 , 7 , 1 28 , 1 , 1 7 , , 1 28 
, 8 , 1 9 , , 1 28 , 8 , 20 , , 1 28 , 1 
590 DATA 20,7,128,1,21,0,128 
,8,5,9,16,20,10,10,10 
600 FOR DD=1 TO 18 :: READ D 
1,D2,D3,D4 :: FOR T=4 TO 22 
STEP 18 

610 CALL HCHAR(D1 ,T+D2,D3,D4 
) : I NEXT T : : NEXT DD 
620 FOR CC=3 TO 30 STEP 9 : : 
CALL UCHAR<3,CC, 134,20) : : N 
EXT CC 

630 FOR T=3 TO 21 STEP 18 :: 
FOR RR=3 TO 1 1 STEP 4 : : CA 
LL HCHAR<RR,T, 134, 10) 
640 CALL HCHAR(RR+11 ,T, 134,1 
> : : NEXT RR : : NEXT T 
650 FOR F=l TO 4 : : READ Rl 
: : CALL HCHARC Rl , 1 3 , 1 34 , 8) : : 
NEXT F 

660 CALL HCHAR< 12, 1 , 122,2) : : 
CALL HCHAR( 12,31 , 122,4) : : C 
ALL HCHARd 3,31 ,122,2) 
670 DISPLAY ATd ,11) :"BYTE M 
AN" ; 

680 DISPLAY AT< 1 1 , 12) : "SCORE 
: " ; : : DI SPLAY ATd 4 , 1 4) : " : " ; 

L; 

690 CALL HCHARd4,15,129) 

700 CALL HCHARC R,C, CHAR) : : C 

ALL HCHARd3,3,140) : : CALL H 

CHARd3,30,140) 

710 GOSUB 1760 

720 REM **CONTROL LOOP** 
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730 CALL KEY<1,K,S):: IF S<1 

OR K>5 THEN 760 
740 A,B=0 

750 ON (K+1)G0T0 880,760,860 
,870,760,890 

760 IF <<C+B)>32)+<(C+B)<1)< 
THEN CALL HCHAR( R , C , 1 22) EL 
SE 780 

770 C=ABS<C+B-22) : : C=C+B 
CALL HCHAR(R,C,CHAR) : : GOTO 
1180 

780 CALL 6CHAR(R+A,C+B,Q) : : 
ON <Q-116)/6 GOTO 790,800,81 
0,980 

790 CALL HCHAR<R,C,122) : : R= 

R+A :: C=C+B :: CALL HCHAR<R 

,C,CHAR) : : GOTO 1 180 

800 A,B=0 :: CALL HCHAR<R,C, 

CHAR) : : GOTO 1 1 80 

810 IF A=B THEN 800 

820 CALL HCHAR<R,C,122) : : R= 

R+A : : C=C+B 

830 CALL HCHAR(R,C,Crt!^R) : : C 
ALL SOl>ID<-100,400,6) 
840 DOT=DOT+ 1 : : SC=SC+ 1 : : 
DISPLAY AT(12,12) :SC; : : IF D 
OT=207 THEN 910 ELSE 118 



850 REM **CK^GE DIRECTION** 
860 B=-l :: CHAR=131 :s GOTO 
760 

870 B=l :: CW!|R=129 :: GOTO 
760 

880 A=l :: CHAR=130 :: GOTO 
760 

890 A=-l :: CHAR=132 :: GOTO 
760 

900 REM *«SCREEN CLEARED** 
910 FOR N=l TO 3 : : FOR CC=1 
29 TO 132 

920 CALL HCHAR<R,C,CC) : : CAL 

L SOUNDd 0,1 000,0) 

930 CALL C0L0R(12,1 ,16) : : CA 

LL C0L0R<12,1 ,1) : : NEXT CC : 

: NEXT N 

940 B0=B0+1 

950 PRINT "GOOD JOB!!! YOU^Kf 
E CLEARED "jBO;" BOARD" ;CHR* 
< <B0<>1 )*<--51 )+32) 
960 SC=SC+500 : : FOR W=l TO 
800 : : NEXT W : : CALL CLEAR 
: : GOTO 400 

970 REM **BYTE MAN DIES BY 
TRYING TO EAT GHOST** 
980 L=L-1 :: CHAR=129 



990 CALL HCHAR(R,C, 122) : : R= 
16 :: C=17 :: GOSUB 1790 :: 
GOSUB 1760 :: A=0 :: B=l 
1000 IF L=0 THEN 1100 
1010 FOR T=l TO 2 
1020 IF E<T)=1 THEN CALL HCH 
AR<X<T) ,Y<T) ,134)ELSE CALL H 
CHAR<X(T) ,Y<T) ,122) 
1030 HEXJ T 

1040 CALL GCHAR<13,3,U) : : E< 

1)=ABS<122-U)/12 

1050 CALL GCHAR(13,30,U) : : E 

<2)=ABS<122-U)/12 

1060 X(1),X<2)=13 :: Y<1)=3 

: : Y<2)=30 

1070 CALL HCHAR( 13,3, 140) : : 
CALL HCHAR<13,30,140) : : DISP 
LAY AT<14,15) :L; 
1080 GOTO 730 

1090 REM **BYTE MAN LOSES** 

**3RD LIFE** 
1100 DISPLAY AT( 1,1) ERASE AL 
L:-AHA!!! MLMCHED ONCE TOO" 
1110 DISPLAY AT<2,1) OFTEN, 
YOUR PALTRY SCORE IS: " ; S 

C 

1120 DISPLAY AT(6,1):"HIT 
" TO QUIT WHILE YOU^'RE" 
1130 DISPLAY AT<7,1) : "AHEAD 
OR HIT ANY OTHER KEY TO TRY 
AGAIN" 
1140 CALL KEY(0,K,S) 
1150 IF S=0 THEN 1140 
1160 IF K=81 THEN END ELSE R 
m 270 

1170 REM **LOOP TO MOVE** 

**GHOSTS** 
1180 READ Al ,B1 ,A2,B2 
1190 DA=DA+1 :: IF DA=136 TH 
EN GOSUB 1760 

1200 CALL GCHAR<X<1)+A1 ,Y<1) 
+81 ,Q1 ) 

1210 IF Ql>128 AND QK133 TH 
EN PP=1 :: QQ=2 :: GOTO 1310 
1220 CALL GCHAR<X(2)+A2,Y<2) 
+82, Q2) 

1230 IF Q2>128 AND Q2<133 TH 
EN PP=2 :: QQ=1 :: GOTO 1310 
1240 IF E<1)=1 THEN CALL HCH 
AR<X<1) ,Y<1) ,134) ELSE CALL H 
CHAR(X<1) ,Y(1) ,122) 
1250 X<1)=X<1)+A1 :: Y(1)=Y< 
1)+B1 :: CALL HCHAR<X< 1 ) , Y( 1 
) , 1 40 ) 



50 



1269 E<1)=ABS(122-Q1)/12 

1270 IF E(2)=l THEN CALL HCH 
AR(X<2) ,Y<2) ,134)ELSE CALL H 
CHAR<X<2) ,Y<2) ,122) 

1280 X(2)=X<2)+A2 :: Y<2)=Y< 
2)+B2 :: CALL HCHAR<X< 2) ,Y( 2 
) ,140) 

1290 E(2)=ABS<122-Q2)/12 :: 
GOTO 730 

1300 REM »*BYTE MAN EATEN** 
**BY GHOST** 

1310 L=L-1 

1320 IF E<PP)=1 THEN CALL HC 
HAR<X<PP) ,Y<PP) ,134)ELSE CAL 
L HCHAR(X<PP) ,Y<PP> ,122) 
1330 CALL HCHAR(R,C,140) : : G 
OSUB 1 790 : : GOSUB 1 760 : : I 
F L=0 THEN 1100 
1340 CHAR=129 

1350 IF E<QQ)=1 THEN CALL HC 
HAR<X<QQ) ,Y<QQ) ,134)ELSE CAL 
L HC^^R<:X<QQ) jYCQQ) ,122) 
1360 CALL HCHAR<R,C,122) : : R 
=16 :: C=17 CALL GCWiR<13 
,3,U) 

1370 E<1)=ABS<122-U)/12 
1380 X<1),X<2)=13 :: Y<1)=3 
Y<2)=30 

1390 A=0 :: B=l ;: CALL 6CHA 
R<13,30,U):: E<2)=ABS< 122-U) 
/12 

1400 CALL HCHAR< 13,30,1 40) : : 

CALL HCHAR<13,3,140) 
1410 DISPLAY AT<14,15):L; 
1420 GOTO 730 

1430 REM **DATA FOR GHOST** 
*MOVEMENT PATTERN* 
1440 DATA 1,0,1,0,1,0,1,0,1, 
0,1 ,0,1 ,0,1 ,0,1 ,0,1 ,0,1 ,0 
1450 DATA 1 ,0,1 ,0,1 ,0,r,0,l , 
8,1,0,1,0 

1460 DATA 0,1,0,-1,0,1,0,-1, 
0,1,0,-1 ,0,1,0,-1 ,0,1 ,0,-1 
1470 DATA 0,1,0,-1,0,1,0,-1, 

0,1,0,-1,0,1,0,-1 

1480 DATA -1,0,-1,0,-1,0,-1, 

0,0,1 ,0,-1 ,0,1,0,-1 ,0,1,0 

1490 DATA -1,0,1,0,-1,0,-1,0 

,1 ,0,-1 ,0,1,0,-1 ,0,1 

1500 DATA 0,-1,0,1,-1,0,-1,0 
,-1 ,0,-1 ,0,0,-1 ,0,1,0,-1 ,0 
1510 DATA 1,0,-1,0,1,0,-1,0, 

1 ,0,-1 ,0,1 ,0,-1 ,0,1 

1520 DATA 0,-1,0,1,0,-1,0,1, 
0,-1 ,0,1,-1 ,0,-1 ,0,-1 ,8,-1 



1530 DATA 0,-1,0,-1,0,-1,0,- 

1 ,0,0,1 ,0,-1 ,0,1 ,0,-1 

1540 DATA 0,1,0,-1,8,1,0,-1, 

8,1 ,8,-1 ,0,1,0,-1 ,0,1,0,-1 

1550 DATA 0,1,0,-1,0,1,0,-1, 

1 ,0,1 ,0,1 ,0,1 ,0 

1560 DATA 1,0,1,0,-1,0,-1,0, 

0,1,0,-1 ,0,1 ,0,-1 ,0,1 ,0,-1 

1570 DATA 0,1,0,-1,0,-1,0,1, 

0,-1,0,1,0,-1,0,1 

1580 DATA 0,-1,0,1,-1,8,-1,0 

,-1 ,8,-1 ,8,-1 ,8,-1 ,8,-1 ,8 

1590 DATA -1,0,-1,8,-1,8,-1, 

0,-1 ,0,-1 ,0,-1 ,0 

1600 DATA 0,1,0,-1,8,1,8,-1, 

0,1 ,0,-1 ,0,1,0,-1 ,0,-1 ,8,1 

1618 DATA 8,-1,8,1,8,-1,8,1, 

0,-1 ,0,1,1,8,1,8 

1620 DATA 1,0,1,8,8,-1,8,1,8 

,-1 ,0,1,0,-1 ,0,1 ,0,-1 ,0,1 

1630 DATA 0,-1,0,1,8,-1,8,1, 

0,-1 ,0,1 ,0,-1 ,0,1 

1640 DATA 0,-1,0,1,-1,0,-1,0 

,-1 ,0,-1 ,0,-1 ,0,-1 ,8,-1 ,8 

1658 DATA -1,8,8,1,8,-1,8,1, 

0,-1 ,0,1,0,-1 ,0,1,0,-1 

1660 DATA 0,1,0,-1,8,1,8,-1, 

0,1,0,-1 ,0,1,0,-1 ,0,1 ,0,-1 

1670 DATA 1,0,1,0,-1,8,-1,8, 

-1,0,-1,0,-1,0,-1,8 

1688 DATA 8,1,8,-1,8,1,8,-1, 

0,1,0,-1 ,0,1,0,-1 ,0,-1 ,8,1 

1698 DATA 8,-1,0,1,0,-1,8,1, 

0,-1 ,0,1,-1 ,8,-1 ,8 

1788 DATA -1,8,-1,8,8,-1,8,1 

,0,-1 ,0,1,0,-1 ,0,1 ,0,-1 ,0 

1710 DATA 1 ,0,-1 ,0,1 ,0,-1 ,8» 

1 ,0,-1 ,0,1 ,0,-1 ,0,1 

1720 DATA 0,-1 ,0,1 ,1 ,0,1 ,0il 

,0,1 ,0,1 ,0,1 ,0,1 ,0,1 ,8,1 ,8 

1738 DATA 1,8,1,8,1,8,1,8,1, 

8,1,8,1,8 

1748 DATA 1,8,1,8,1,8,1,8,1, 

0,1,0 

1750 REM*RESTORE DATA FOR* 
**GHOST MOV^EMENT** 

1760 RESTORE 1440 

1 770 DA=0 : : RETURN 

1780 REM*SOUND ROUTINE FOR* 
**BYTE Ml^!tf^^''S DEATH* 

1790 FOR T=300 TO 110 STEP - 

5 :: CALL SOUND< -500 ,T , 5 ,T+3 

0,5) : : NEXT T 

1800 CALL SOUND<100,-6,0) 

1810 RETUFaM 
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ARITHMETIC EXERCISE 

Unique in it's use of sprites/airplanes in an exercise to drill students in any of the four Basic Math Groups; + — x 
^. There are two levels in each group, selected by the student. Ten problems are presented. If the student 
misses 3 or more, the Computer recycles that set. Great for helping parents determine students' weak area. 



100 REM***************** 
110 REM* ARITHMETIC * 
120 REM* EXERCISE * 
130 REM* EXTENDED BASIC* 
140 REM*RI CHARD PROCTOR* 
150 REM* DAYTON OHIO * 
160 REM* COPYRIGHT 1983* 
170 REM***************** 
1 80 CALL CLEAR : : CALL SCREE 
N<16):: RANDOMIZE 
190 CALL CHAR< 104, "134321541 
2ACDE87*' ) 

200 FOR 1=3 TO 30 : : CALL HC 

HAR<1 ,1 ,104) : : NEXT I 

210 FOR 1=1 TO 24 :s CALL VC 

HARCI ,30,104) : : NEXT I 

220 FOR 1=30 TO 3 STEP -1 : : 

CALL HCHAR<24,I ,104) : : NEXT 

I 

230 FOR 1=24 TO 1 STEP -1 : : 
CALL 'v;CHAR<I ,3,104) : : NEXT 

I 

240 DISPLAY AT<9,5)SIZE<19) : 

"ARITHMETIC EXERCISE" 

250 DISPLAY AT<19,4)SIZE<22) 

PRESS ANY KEY TO BEGIN" 
260 DEF XX=INT<14»RND+2) 
270 CALL KEY<0,K,S):: CALL C 
OLOR<10,1 ,XX) : : CALL C0L0R<1 
XX 1 ) 

280 I F S=0 THEN 270 : : CALL 
C0L0R<9,3,3, 11 ,10,5,12,2,3,1 
3 2 5 14 2 5) 

290'cALl'cHAR(96,"" ,1 12, "000 
81020C0C08") 

300 CALL CHAR<113, "184010218 
4424842" ,114, "02421 481 0481 28 
42") 

310 CALL Ch«^R< 120, "000000000 
00F0FFF" ,121 ,"00000F0F0FFFFF 
FF") 

320 CALL Ch*aiR<122,"3F3FFFFFF 
FFFFFFF" , 1 23 , " FFE0FFFFFFFFFF 
FF") 

330 CALL CHAR < 124, "F800C0C0C 
0FFFFFF" ,125,"0000000000F0F0 
FF" ) 

340 CALL CHAR< 126, "000000000 
00000FF" ,127,"FF" ,128, "00000 

001") 



350 CALL CHAR<129,"3F7FFEFDF 
P7P3P3F" , 1 30 , " 983878F0E0FFFF 
FF") 

360 CALL CHAR< 131 ,"000000000 
0F8F8F8" ,132,"0000000103070F 
IF") 

370 CALL CHAR<133,"3F7EFCFCF 
8F0E0C0" ,134, "00000000010307 
0F") 

380 CALL CHAR < 135, "1E3C7CF8F 
0E0C080" ,136, "00000000000103 
07") 

390 CALL CHAR<137,"0E1C3870E 
0C08" , 138,"0000000080C08" ) 
400 CALL CHAR<139,"0000030F3 
FFFFF3F" ,140 , "000000C0FFFFFF 

F8") 

410 CALL CI^R<141 ,"060F0F1FF 
FFFFF" , 1 42 , " 00000 1 0005828F4F 

") 

420 CALL CHAR< 143, "000000007 

F54F762") 

430 CALL CLEAR 

440 DISPLAY AT<12,4) •."WhWT I 
S YOUR W»ME? " :N* : : ACCEPT 
AT<15,6) :N* 

450 CALL CLEAR :: DISPLAY AT 
(5 4) :N$ " " " 

460 DISPLAY AT<7,2) :"WHICH W 

OULD YOU LIKE TO DO?" :: DIS 

PLAY AT<9,24) :"PRESS" 

470 DISPLAY AT(12,6) :"ADDITI 

CW" ;TAB<25) ;"A" 

480 DISPLAY AT<14,6) :"SUBTRA 

CTICW" ;TAB<25) ;"S" 

490 DISPLAY AT(16,6) :"MULTIP 

LICATICW" ;TAB<25) ;"M" 

500 DISPLAY AT<18,6) z'DIUISI 

m' ;TAB<25) ;"D" 

510 CALL KEY<0,K,S)s: IF K=6 

5 THEN 530 :: IF K=83 THEN 7 

90 

520 I F K=77 THEN 1 320 : : IF 
K=68 THEN 1050 ELSE 510 
530 CALL CLEAR :: DISPLAY AT 
< 3 4 ) s N^ • " " 

540 DISPLAY AT<5,1):"THE COM 
PUTER WILL USE ONE OF" 
550 DISPLAY AT(6,1):"TW0 FOR 
MS, EITHER" 
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568 DISPLAY AT<8,18):"A + B 
= ?" :: DISPLAY AT<10,7):"OR 

570 DISPLAY AT<12,13) :"A" :: 
DISPLAY AT<13,11) B" 

580 DISPLAY AT< 14,11):" " 

:: DISPLAY AT< 15,13) :"?" 

590 DISPLAY AT< 17,1 ): "THERE 

WILL BE TEN PROBLEMS" 

600 DISPLAY AT<20,2) : "FOR EA 

SY PROBLEMS PRESS 1" 

610 DISPLAY AT<22,2) :"FOR HA 

RD PROBLEMS PRESS 2" 

620 CALL KEY<0,K,S):: IF K=4 

9 THEN 650 

630 IF KO50 THEN 620 :: C=0 
: : R=0 : : W=0 : : GOSUB 1 590 

640 D1=INT<8999«RND)+1000 :: 
D2=INT(8999*RND)+1000 :: GO 

TO 670 

650 C=0 : : R=0 : : W=0 : : GOS 
UB 1590 

660 D1=INT<89*RND)+10 :: D2= 
INT<89*RND)+10 

670 D3=D1+D2 :: C=C+1 :: Z=I 
NT<2*RND)+1 :: IF Z=l THEN 7 

00 

680 DISPLAY AT<11,10):D1 :: 
DISPLAY AT( 11 ,15) :" +" :: DI 
SPLAY AT<11 ,17) :D2 
690 DISPLAY AT<11,22):" =" : 
: DISPLAY AT< 11 ,24) :" ?" :: 
GOTO 720 

700 DISPLAY AT<9,18):D1 :: D 
ISPLAY AT( 10,17) :"+" :: DISP 
LAY AT<10,18) :D2 

710 DISPLAY AT<11,17):" 

:: DISPLAY AT < 12,22) : 
720 ACCEPT AT<15,16)BEEP SI 2 
E<8):A :: IF A=D3 THEN 730 : 
: GOSUB 1800 :: GOTO 740 
730 GOSUB 1680 
740 IF C>9 THEN 780 
750 CALL HCrt2|R< 9, 18,32,8) : : 
CALL HCHAR<10,17,32,8) : : CAL 
L HCHARdl ,12,32,18) 
760 CALL HCI^R< 12,22,32,3) : : 

CALL HCHAR<15,14,32,16) 
770 IF K=49 THEN 660 ELSE 64 


780 GOSUB 1870 :: IF R<8 THE 
N 530 ELSE 1900 
790 CALL CLEAR :: DISPLAY AT 
(3,4) :N*;" ," 



800 DISPLAY AT<5,1) :"THE COM 
PUTER WILL USE ONE OF" 
810 DISPLAY AT<6, 1 ) : "TWO FOR 
MS, EITHER" 

820 DISPLAY AT(8,10):"A - B 
= ?" : : DISPLAY AT<10,7):"OR 

a 

830 DISPLAY AT( 12,13) :" A" :: 
DISPLAY AT< 13,11):"- B" 

840 DISPLAY AT<14,11):" " 

:: DISPLAY AT< 15, 13) : 

850 DISPLAY AT< 1 7,1) : "THERE 

WILL BE TEN PROBLEMS" 

860 DISPLAY AT<20 ,2) : "FOR EA 

SY PROBLEMS PRESS 1" 

870 DISPLAY AT(22,2) : "F0R HA 

RD PROBLEMS PRESS 2" 

880 CALL KEY<0,K,S):: IF K=4 

9 THEN 910 

890 IF KO50 THEN 880 :: C=0 
: : R=0 : : W=0 : : «OSUB 1 590 

900 D1=INT<8999*RND)+1000 :: 
D2=INT<899*RND)+100 :: GOTO 
930 

910 C=0 :: R=0 :: W=0 :: GOS 
UB 1590 

920 D1=INT<89*RND)+10 :: D2= 
INT<9*RND)+1 

930 D3=D1-D2 :: C=C+1 :: Z=I 
NT<2*I^D) + 1 IF Z=l THEN 9 
60 

940 DISPLAY AT< 11 ,10) :D1 :: 
DISPLAY AT< 11 ,15) :" -" :: DI 
SPLAY AT<11 ,17) :D2 
950 DISPLAY AT(11,21):- =" : 
: DISPLAY AT( 11 ,23) :" ?" :: 
GOTO 980 

960 DISPLAY AT<9,18):D1 :: D 
ISPLAY AT< 10,17) :: DISP 
LAY AT<10,19) :D2 

970 DISPLAY AT<11,17):" 

:: DISPLAY AT< 12,22) :» ?" 
980 ACCEPT AT< 15, 16)BEEP SIZ 
E<8):A :: IF A=D3 THEN 990 : 
: GOSUB 1800 :: GOTO 100 


990 GOSUB 1680 
1000 IF C>9 THEN 1040 
1010 CALL HCHAR<9, 19,32,8) : : 
CALL HCKb2^R<10,18,32,10) : : C 
ALL HCHARC 11 ,12,32,18) 
1020 CALL HCI^R< 12,22,32,23) 
:: CALL HCf^R< 1 5 , 1 4 , 32 , 1 6) 
1030 IF K=49 THEN 920 ELSE 9 

00 
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1848 60SUB 1878 :: IF R<8 TH 
EN 798 ELSE 1988 
1858 CALL CLEAR :: DISPLAY A 
T<2,4) sN^;" 

1868 DISPLAY AT<4,1):"THE CO 
MPUTER WILL USE ONE OF" 
1878 DISPLAY AT<5, 1 > : "TWO FO 
RMS, EITHER" 

1888 DISPLAY AT<8,18>:"A / B 
= ?■ :: DISPLAY AT<18,7):"0 
R" 

1898 DISPLAY AT<12,13):- — ?_ 
_" :: DISPLAY AT<13,11):"B ) 
A- 

1188 DISPLAY AT<16,1) :"THE C 
OMPUTER IGNORES ALL" 
1118 DISPLAY AT<17,1) :"REMAI 
NDERS AND DECIMALS" 
1128 DISPLAY AT(28,1) : "THERE 
WILL BE TEN PROBLEMS" 
1138 DISPLAY AT<22,2> :"FOR E 
ASY PROBLEMS PRESS 1" 
1148 DISPLAY AT<24,2) :"FOR H 
ARD PROBLEMS PRESS 2" 
1158 CALL KEY<8,K,S):: IF K= 
49 THEN 1188 

1168 IF K058 THEN 1158 :: C 
=8 :: R=8 :: W=8 :: GOSUB 15 
98 

1178 D1=INT<8999*RND)+1888 : 
: D2=INT<89»RND)+18 :: GOTO 
1288 

1188 C=8 :: R=8 :: W=8 :: 60 
SUB 1598 

1198 D1=INT<89*RND)+18 D2 
=INT<9«RND)+1 

1288 D3=INT<D1/D2) : : C=C+1 : 
: Z=INT<2»RND)+1 :: IF Z=l T 
HEN 1238 

1218 DISPLAY ATdl ,18) :D1 :: 

DISPLAY AT<11 ,15) :" /" :: D 
ISPLAY AT<11 ,17) :D2 
1228 DISPLAY ATdl, 28):" =" 
:: DISPLAY ATdl ,22) :" ?" :: 

GOTO 1258 
1238 DISPLAY AT< 18 ,21 ) : "?" : 

: DISPLAY AT<11 ,16) :" " 

1248 DISPLAY ATd2,13):D2 :: 

DISPLAY ATd2,16) :")" ;: DI 
SPLAY AT<12,17) :D1 
1258 ACCEPT AT< 15, 16)BEEP SI 
ZE(8):A :: IF A=D3 THEN 1268 

: : GOSUB 1888 : : GOTO 1 
278 



1268 GOSUB 1688 

1278 IF C>9 THEN 1318 

1288 CALL HC»^R<18,22,32,3) : 

: CALL HCHAR< 11 ,18,32,28) 

1298 CALL HCHbfi|Rd2, 12,32, 12) 

:: CALL HCHARdS, 14,32, 16) 

1388 IF K=49 THEN 1198 ELSE 

1178 

1318 GOSUB 1878 :: IF R<8 TH 
EN 1858 ELSE 1988 
1328 CALL CLEAR DISPLAY A 
T<3,4) :N*;" ," 

1338 DISPLAY AT<5,1):"THE CO 
MPUTER WILL USE ONE OF" 
1348 DISPLAY AT<6,1)!"TW0 FO 
RMS, EITHER" 

1358 DISPLAY AT<8,18):"A X B 
= ?" :: DISPLAY ATd8,7):"0 
R" 

1368 DISPLAY AT< 12,13) :" A" : 
: DISPLAY ATd3,ll):"X B" 
1378 DISPLAY ATd4,ll):" " 

:: DISPLAY ATd5, 13) :"?" 
1388 DISPLAY ATd 7, 1 ) : "THERE 

WILL BE TEN PROBLEMS" 
1398 DISPLAY AT<28 ,2) : "FOR E 
ASY PROBLEMS PRESS 1" 
1488 DISPLAY AT<22,2) : "FOR H 
ARD PROBLEMS PRESS 2" 
1418 CALL KEY<8,K,S):: IF K= 
49 THEN 1448 

1428 IF K058 THEN 1418 :: C 
=8 :: R=8 :: W=8 :: GOSUB 15 
98 

1438 D1=INT<899*RND)+188 :: 
D2=INT<899*RND)+188 :: GOTO 
1468 

1 449 C=8 : : R=8 : : W=8 : : GO 
SUB 1598 

1458 D1=INT<9»RND)+1 D2=I 
NT<9»RND)+i 

1468 D3=D1»D2 :: C=C+1 :: Z= 
INT<2*RND)+1 :: IF Z=l THEN 
1498 

1478 DISPLAY AT<11,18)!D1 :s 
DISPLAY ATd 1,14):" X" : : D 
ISPLAY ATdl ,16) :D2 
1488 DISPLAY AT<11,28):" =" 
:: DISPLAY AT< 11 ,22) :" ?" :: 
GOTO 1518 
1498 DISPLAY AT(9,18):D1 :: 
DISPLAY AT< 18,1 7) :"X" :: DIS 
PLAY ATd8,18) :D2 

1588 DISPLAY ATd 1,17):" 

_" :: DISPLAY ATd2, 21) :"?" 



1518 ACCEPT AT(15,16)BEEP SI 
ZE<8):A :: IF A=D3 THEN 1538 
1520 GOSUB 1880 :: GOTO 1548 
1538 GOSUB 1680 
1540 IF C>9 THEN 1580 
1550 CALL HCW^R<9, 19,32,8) : : 
CALL HCHAR<10,18,32,10) : : C 
ALL HCW^R<11 ,12,32,18) 
1560 CALL HCHAR< 12,21 ,32,3) : 
: CALL HCHAR<15,14,32,16) 
1570 IF K=49 THEN 1450 ELSE 
1430 

1580 GOSUB 1870 :: IF R<8 TH 

EN 1320 ELSE 1900 

1590 CALL CLEAR :: CALL SCRE 

EN<5):: CALL HChWR<23, 1 ,96,6 

4) 

1600 CALL HCHAR<24,2,127,7) 
1610 FOR 0=1 TO 21 :: READ X 
,Y,CC :: CALL HCHAR<X ,Y , CO : 
: NEXT Q : : RESTORE 1 620 
1620 DATA 23,2,120,23,3,121, 
23,4,122,23,5,123,23,6,124,2 
3 

1630 DATA 7,125,23,8,126,22, 
3 , 1 28 , 22 , 4 , 1 29 , 22 , 5 , 1 30 , 22 
1640 DATA 6,131,21,4,132,21, 
5,133,20,5,134,20,6,135,19,6 
1650 DATA 136,19,7,137,18,7, 
136,18,8,137,17,8,136 
1660 DATA 17,9,138 
1670 RETUf^ 

1680 CALL SPRITE<ttl ,139,2,13 
,237, 0,-10, #2, 140, 2, 13, 242,0 
,-10) 

1690 CALL SPRITE<I»3, 141 ,2,13 
,247,0,-10) 

1700 FOR M=l TO 3 : I CALL SO 
l^D< 350 , -5 , , 205 , 8 , 1 75 , 8 , 1 1 

,0) 

1710 CALL HCHAR<17,9,112) : : 
CALL HCHAR< 17,9, 138):: NEXT 
M 

1720 CALL SOUND<1625,1100,7, 
232,6,125,7,-5,3):: CALL DEL 
SPRITE<ALL) 

1730 CALL SPRITE<#4, 142,2, 10 
, 1 78 , 25 , - 1 1 , #5 , 1 43 , 2 , 1 4 , 1 84 , 
25,-11) 

1740 CALL SPRITE<#6, 141 ,2,18 
,190,25,-11) 

1750 FOR D=l TO 360 :: NEXT 
D 



1760 CALL SOmD<750,-6,0,205 
,4,175,5,112,6):: CALL DELSP 
RITE<ALL) 

1770 CALL HCHAR<22,14,113) : s 
CALL HCF^R<22,15,114) 

1780 CALL HCHAR<22,16,141) : : 
FOR D=l TO 25 : : NEXT D 

1790 CALL HCHAR<22,14,142) : : 
CALL HCHAR<22,15,143) : : R=R 

+ 1 :: RETUf^ 

1800 CALL SPRITE<#1 ,139,2,13 
,237, 0,-10, #2, 140, 2, 13, 242,0 
,-10) 

1810 CALL SPRITE<tt3, 141 ,2,13 
,247,0,-10):: FOR D=l TO 125 

: : NEXT D 
1820 FOR X=l TO 3 :: CALL SO 
l^D< 350, -5,0, 205, 8, 175, 8, 110 
,0) 

1830 CALL HCHAR<17,9,112) : : 
CALL HCHAR< 17,9, 138) : : NEXT 
X 

1840 FOR D=l TO 1200 :: NEXT 

D : : CALL DELSPRITE(ALL) 
1850 DISPLAY AT<19,10) :"ANSU 
ER IS- :: DISPLAY AT< 19 ,20) : 
D3 : : FOR D=l TO 750 
I860 NEXT D :: CALL HCHAR<19 
,10,32,20):: W=W+1 :: RETURN 
1 870 CALL CLEAR : : CALL SCRE 
EN<16):: DI SPLAY AT< 6 , 4) : "NU 
MBER CORRECT " ; R 
1880 DISPLAY AT(8,4) : "NmBER 

INCORRECT " ;W 
1890 FOR T=l TO 400 :: NEXT 
T : : RETURN 

1900 IF R<9.5 THEN 2000 :: D 
I SPLAY ATCll ,6) :N*;" 
1910 DISPLAY AT< 13,4) : -YOU D 
ID GREAT - 

1920 CALL SOLND<130,573,6) : : 

CALL SOUNDC 130,659,6) : : CAL 
L SOUND< 130,698,6) 
1930 CALL SOLWD<260,784,6) : : 

CALL SOLND< 130,659,6) 
1940 CALL SOLND<650,784,6) : : 

FOR D=l TO 100 :: NEXT D 
1950 CALL SOUND<130,587,3) : : 

CALL SOLND< 130 ,740 ,3) : : CAL 
L SOUND(130,784,3) 
I960 CALL SOmD<260 ,880 ,3) : : 

CALL SOUND( 130,740,3) : : CAL 
L SOll^iD (650,880, 3) 
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1978 FOR D=l TO 190 :: NEXT 
D :: CALL SOUND( 1 38 , 659 , 8 ) 
1980 CALL S0UND<138,831 ,8) : : 

CALL S0UND< 138,888,0) : : CAL 
L SOUND (268,988, 8) 
1998 CALL SOUND< 1 38,831 ,0) : : 

CALL SOUND (788, 988,8) 
2888 DISPLAY AT( 1 8 , 2) : "WANT 
TO PLAY AGAIN? (Y/N)" 
2818 CALL KEY(8,K,S):: IF K= 
89 THEN 458 :: IF K078 THEN 

28 1 8 : : CALL CLEAR 
2828 END 




SPELLING EXERCISE 



The use of Speech truly enhances the value of and interest in this program. It will accept up to 30 words of 15 
letters or less. The Computer than says the word as it prints it on the screen. The student determines how long 
the word appears on the screen. Then he must type in the correct spelling to recieve a graphic reward for his 
efforts. Youngsters (and some oldsters too!) will really benefit from this program. 



188 
118 
128 
138 
148 
158 
168 
178 
188 
190 
288 
218 
228 
238 
248 



REM ******************* 
REM *SPELLIN6 EXERCISE* 
REM * TI BASIC * 

REM * TE-2 W/SPEECH * 
REM * RICHARD PROCTOR * 
REM * DAYTON OHIO * 
REM * COPYRIGHT 1983 * 
REM ******************* 
CALL CLEAR 
CALL SCREEN(16) 



DIM A*(38) ,RS*( 15) 
L=2 
P=3 

OPEN #2 : " SPEECH" , OUTPUT 
CALL CW^R( 184, "312354762 
4324534") 

258 CALL CHAR(185,"FF88FF88F 
F88FF88") 

268 DATA 2 , 8 , 9 , SPELLING EXER 

CISE,18,9,INSTRUCTIC»>4S Y/N 

278 GOSUB 3888 

288 GOSUB 2848 

298 DEF )(X=INT( 14*RND+2) 

300 CALL KEY(0,K,S) 

310 CALL COLOR(10,)(X,1) 

320 CALL COLOR(10,1 ,XX) 

330 IF K=78 THEN 450 

340 IF K089 THEN 300 

350 CALL CLEAR 

360 CALL SCREEN(ll) 

370 PRINT "WHEN THE SCREEN D 

I SPLAYS '?^TYPE A WORD THEN 

PRESS ENTER" : : : : 



380 PRINT "A MAXIMUM OF 30 W 
ORDS CAN BEENTERED. THE WOR 
DS CAN BE" 

390 PRINT "TO 15 LETTERS LON 

GH ■ . . . 
■ ■ • ■ ■ 

400 PRINT 
OP BEFORE 
DS JUST" 
410 PRINT 



IF YOU WANT TO ST 
YOU GET TO 30 WOR 

PRESS ENTER TWICE 



420 
430 
440 
450 
460 
470 
1ST 
480 
490 
500 
510 



FOR D=l TO 4088 
NEXT D 

REM PROGRAM RUN 

CALL CLEAR 

CALL SCREEN(16) 

DATA 1,6,9, CHOOSE WORD L 



RESTORE 478 
GOSUB 3888 

CALL HCHAR(7,9,185,16) 
DATA 6,12,7,PRESS,12,18, 
TO, 16,7,1 ,16, 12, LOAD TAPE FI 
LE, 18,7,2 

528 DATA 18, 12, TYPE NEW WORD 
S 

538 

548 
558 
568 
578 
588 
598 



RESTORE 518 
GOSUB 3888 
GOSUB 2848 
CALL KEY(8,K,S) 
CALL C0L0R(18,XX,1) 
CALL C0L0R(18,1 ,XX) 
IF K=58 THEN 698 
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AOfl TP l^^^^9 TI-IPKI RX.Cit 


1 20 CALL ChMR < 1 29 , 


24315432 




64363231 ) 




nPPKI HI ■ TQ1 TKITCrC3KtA.I p 
OwCD UrCPf fff 1 • t^O A y 1 IN 1 CrxTfriL. f r 


1030 CALL CI-MR(136, 


" 1 38D1 784 


Typn QPniiPKiTT^i input 


4B3354AB ) 




A'^fl TNPIIT 111 - n 


1040 CALL Ch^R(137, 


" 88888888 


PHP T — i Tn O 


00001 2AD'' ) 




ASfl TKIPIIT 111 -^^^ T ^ 


1050 CALL CHAR(138, 


''80A068A0 


OOO INCA 1 1 


70A0D428'' ) 




X7fl n ncp m 

OrO Lrl_U9C til 


4 A y A ^^J^ 1 1 • A. r% V 4 ^^^^ 

1060 CALL Ch^R < 1 39 , 


"DA96B868 




PABC68DD ) 




^90 CAl L ri PAR 


4 A A 1 Ai_iA.nx 4 ^ 

1 70 CALL CtoR < 1 44 , 


"EB56BDDA 


70(1 POP 1 = 1 Tn '^A 


6AB4C820 ) 




710 TNPIIT 1 ^ 


1080 CALL CKMR(145, 


■E9BED424 




A A A A A A A A ■ V 

00000000" > 




700 NPVT T 


1090 CALL CHAR(146, 


"66B848E0 


70,01 n— .T 


80E058FE'' ) 




r^i 1 n PAP 


4 4 A A 1 1 ^1 1 v^ n ^ A M "9 

1100 CALL CHAR<147, 


"886898F0 


r 00 UH 1 R I y *t 1 / ) LbVCL UP Vlrr 


A8806080 > 




TPIII TTY 
1 t^iji. Ill 


1110 CALL CHAR < 148, 


"BD2A1 157 


77(1 PPQTnPP 7XA 


1 40 10000 > 






4 4 ^A 1 ^LJWn/ 4 VIA 

1120 CALL CrMR(149, 


EDAD7249 


79A HAI 1 MPI-IAP^R 7 10^ OA ^ 


AOOD0A0 1 > 




AAA nATA 1 A Q PPPCC O 1 O P 


1130 CALL CmR(150, 


"2B374A15 


HP 1Q 11 1 1Q 1Q ODCCrSV 

UK ylOyll yl ylOylOy OP CbUY 


04020900 ) 




010 UM IH IWyllyZylDylOy PHO I y 


1140 CALL CHAR(151, 


"8188831D 


17 11 Q 17 1Q MCrrkT 1 DsA 1 O 14 Jt 

1/^yllyOyl/yl O yMkUl UM ,19,11 ,4 


031 90A2D ) 




19 1 Qi niii 


11D0 CALL CrWR<159, 


FFFFFFFF 


QC>A PPQTfkPP QAA 
o^o nco 1 urcti ooo 


ppppFFFF ) 




ft'^A RncillR QARA 
ooo wUOUD oooo 


11^0 <^>v. II r^ i_i>v B / ■ 4 c n 

1160 CALL CI-MR<158, 


"BDCAEFEF 


ft4A RrtQI IR 9fi^A 

0*tCI OUOUD iCOtO 


7D/pEb6B ) 




RSA HAI 1 kPYf A 1^ 


4 4 *7 A 1 1 Al ivk. n V 4 ^ 

1170 CALL CHAR<157, 


"EFEF74B5 


QXA PAi 1 r^ni np^ i a w i ^ 

DOO UHL.1_ UUuUKs 1 D , AA , 1 ^ 


676EF67F ) 




Q7A PAi 1 pni np^ 1 A 1 w\ 

Or O UnL.I_ UU1_UK\ 1 o , 1 fAJ\} 


1180 CALL ChMR<155, 


"88 68 98 FA 


OOO Ip ^ Ks*iyj + C K>oZ)=~l THEN 


WP"CA^ y vk. n B v 

AE59F6AB'' ) 




ODD 


1190 CALL Ch^R(lS6, 


"8185522E 


OTO k K*-*fo^ Z*K) *2 


1 936B7CE ) 




TOO Ktri UKtHTE SCENERY 


4 A A AW 1 1 A 1 1 vk. n y 4 A 

1 20 CALL CK^R ( 1 52 , 


■ 155F368B 


010 r^^i i r^m no^a ~9 o\ 
yiU LhLL uULOKk 9 , 7 , 3> 


1 71 56B9D ) 




ooo f^^i 1 r^ni rto/ i o >i ~9\ 
y^O URLL UULUK^ 1 o , 4 , /> 


4 ^ 4 A AWI 1 Al tVk A V 4 PA 

1210 CALL Ci-WR<153, 


"8868A8C8 


OQA PAI i C-Cil no / i A O 1 \ 
yoO UHl_L. UULUK^ 1 , O , 1 / 


A9D6DF65"> 




yHo UALL UULUK( 1 Z> , o , 1 ) 


1220 CALL CHAR<154, 


"88888840 


yDO URLL UuLuRk 1 6 , 3 , 1 ) 


A4EAB4FF") 




960 CALL ChWR<96, "3C7EFFFFFF 


1238 CALL CLEAR 




PP /toC } 


1240 REM CREATE PICTURE 


9/0 CALL CHhR< 91 , 8880 1 F3F7F 


1258 CALL VCI^Rd ,2 


,129.72) 


7COOOf^t» \ 

/POooL } 


1268 CALL VCHARd ,38 ,129,72) 


yoo CALL CHARC92, C0787CF8E0 


1270 RESTORE 1328 




l^OOOUO } 


1288 FOR 1=1 TO 31 




990 CALL CpWR< 93 , " 00233F1 Fl F 


1298 READ R,C,CC,RC 




3F3330" ) 


1388 CALL HCHAR<R,C 


,CC,RC) 


1000 CALL CHAR<94, " 1018CCFEF 


1318 NEXT I 




EF6D818") 


1328 DATA 23,1 ,159, 


64 , 1 , 1 , 1 5 


1010 CALL CHAR<106,"FFFF0000 


8,6,1 ,25,158,7,2,1 , 


158 


FFFF0000" ) 
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1338 DATA 7,2,24,158,8,3,1,1 
58,9,3,23,158,9,4,1 ,158,11 
1349 DATA 4,24,158,9,5,1,158 
,11 ,5,22,158,18,6,1 ,158 
1358 DATA 9,6,21,158,11,7,1, 
158,18,7,22,158,18,8,1 ,158,9 
1368 DATA 8,23,158,18,9,1,15 

8,8,9,25,158,9,18,1 ,158 
1378 DATA 6,18,25,158,7,11,1 

,158,4,11 ,27,158,5,12,1 ,158, 
3 

1388 DATA 12,29,158,3,21,4,1 

57,2,28,4,157,2,22,3,157 

1398 DATA 4,22,28,157,4,21,2 

9,157,2,28,29,157,2 

1488 FOR 1=1 TO 35 

1418 READ R,C,CC 

1428 CALL HCHAR<R,C,CC) 

1438 NEXT I 

1448 DATA 1,7,155,5,12,147,2 
2,7,155,1 ,24,156,2,23,156 
1458 DATA 5,21,156,22,27,156 
,4,23,152,2,8,153,2,9,154 
1468 DATA 3,18,153,3,11,154, 
11 ,5,144,11 ,5,145,18,7,144 
1478 DATA 18,8,145,8,9,144,8 
,18,145,6,18,146,9,23,148 
1488 DATA 9,24,149,11,25,148 
,11 ,26,149,12,27,148,12,28 
1498 DATA 149,7,21,158,8,22, 
158,28,28,151 ,21 ,28,136 
1588 DATA 19,29,137,19,5,137 
,28,6,138,21 ,6,139,22,8,91,2 
2,9,92 

1518 DATA 1 ,12, 18, SPELL 
1528 RESTORE 1518 
1538 GOSUB 3888 
1548 J=l 

1558 CALL HCWiiR<14,12,32,17) 
1568 CALL HCHAR<15,12,32,17) 
1578 FOR 1=1 TO LEN<A*<J)) 
1588 CALL HCHAR<14,I+12,ASC< 
SEG*<A*<J> ,1 ,1))) 
1598 NEXT I 

1688 PRINT #2:"SPELL" ,A*<J) 
1618 FOR D=l TO D 
1628 NEXT D 

1638 CALL HCHAR<14, 11 ,32,17) 
1648 CALL HCHAR<15,13,186,LE 
N<A*< J))) 

1658 FOR 1=1 TO LEN<A*<J)) 
1668 CALL KEY<.8,K,S> 
1678 IF S=8 THEN 1668 
1688 IF K<65 THEN 1788 



1698 IF K<91 THEN 1728 

1788 CALL S0UND<188,-2,2) 

1718 GOTO 1668 

1728 RS^<I)=CHR*<K) 

1738 CALL HCHAR<14,I+12,K) 

1748 NEXT I 

1758 FOR 1=1 TO LEN<A*<J)) 

1768 IF RS^<I)<>SEG*<A*<J) ,1 

,1)THEN 1798 

1778 NEXT I 

1788 GOTO 1838 

1798 CALL S01MD< 588,-1 ,2) 

1888 CALL S0UND<588,-2,2) 

1818 CALL HCHAR<14, 12,32, 17) 

1828 GOTO 1558 

1838 REM PLACE FRUIT 

1848 IF L=4 THEN 1988 

1858 IF L=6 THEN 2888 

1868 IF L=8 THEN 2188 

1878 IF L=18 THEN 2288 

1888 IF P=7 THEN 1928 

1898 IF P>7 THEN 1938 

1988 GOSUB 2978 

1918 GOTO 2358 

1928 P=25 

1938 IF P=29 THEN 1968 
1948 GOSUB 2978 
1958 GOTO 2358 
1968 L=4 
1978 P=2 

1988 IF P=18 THEN 2828 
1998 IF P>18 THEN 2838 
2888 GOSUB 2978 
2818 GOTO 2358 
2828 P=24 

2838 IF P=38 THEN 2868 
2848 GOSUB 2978 
2858 GOTO 2358 
2868 L=6 
2878 P=3 

2888 IF P=9 THEN 2128 
2898 IF P>9 THEN 2138 
2188 GOSUB 2978 
2118 GOTO 2358 
2128 P=21 

2138 IF P=31 THEN 2168 
2148 GOSUB 2978 
2158 GOTO 2358 
2168 L=8 
2178 P=2 

2188 IF P=8 THEN 2228 
2198 IF P>8 THEN 2238 
2288 GOSUB 2978 
2218 GOTO 2358 
2228 P=22 
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2239 IF P=30 THEN 2268 
2248 GOSUB 2978 
2258 GOTO 2358 
2268 L=18 
2278 P=3 

2288 IF P=7 THEN 2328 
2298 IF P>7 THEN 2338 
2388 GOSUB 2978 
2318 GOTO 2358 
2328 P=25 

2330 IF P=29 THEN 2388 

2348 GOSUB 2978 

2358 IF J>38 THEN 2388 

2368 IF A*<J)='"' THEN 2388 

2378 GOTO 1558 

2388 FOR C=8 TO 24 STEP 2 

2398 CALL HCF^R< 22 , C , 32) 

2488 CALL HCHAR< 22 , C+ 1 , 93) 

2418 CALL HCHAR( 22,0+2,94) 

2428 CALL HCHAR< 22 , C+ 1 , 32) 

2438 CALL HCl^R( 22 , C+2 , 91 ) 

2448 CALL HCHARC 22 , C+3 , 92) 

2458 NEXT C 

2468 GOSUB 3168 

2478 DATA 4 , 1 6 , 8 jUERY GOOD!! 

,17, 8, YOU DESERVE A HUG! 

2488 DATA 18, 8, WANT TO PLAY 

AGAIN?, 19, 12, Y OR N 

2498 RESTORE 2478 

2588 GOSUB 3888 

2518 CALL KEY<e,K,S) 

2528 IF K=78 THEN 2688 

2538 IF K089 THEN 2518 

2548 CALL CLEAR 

2558 DATA 6 , 9 , 7 , PRESS , 9 , 1 7 ,T 

0,11 ,9,1 ,11 ,13 

2568 DATA USE SAME WORDS, 13, 

9,2, 13, 13, INPUT NEW ONES 

2578 RESTORE 2558 

2588 GOSUB 3888 

2598 GOSUB 2848 

2688 L=2 

2618 P=3 

2628 J=l 

2638 CALL KEY<8,K,S) 

2648 CALL COLORC 1 8 ,XX , 1 ) 

2650 CALL C0L0R<18,1 ,XX) 

2668 IF K=49 THEN 758 

2678 IF K=58 THEN 698 ELSE 2 

638 

2688 CALL CLEAR 

2698 DATA 6 , 9 , 4 , PRESS , 9 , 1 5 ,T 

0,11 ,6,1 ,11,12 



2788 DATA SAME WORDS ON TAPE 
,13,6,2, 13, 12, END PROGRAM 
2718 RESTORE 2698 
2728 GOSUB 3880 
2738 CALL KEY(8,K,S) 
2748 IF K=5e THEN 2828 
2758 IF K049 THEN 2738 
2760 OPEN #1 z-CSl" , INTERNAL, 
SEQUENT lAL, OUTPUT, FIXED 
2770 PRINT #1 ;Q 
2780 FOR 1=1 TO Q 
2790 PRINT ttl :A*( I ) 
2800 NEXT I 
2810 CLOSE #1 
2820 CALL CLEAR 
2830 END 

2840 FOR 1=3 TO 38 

2850 CALL HCHAR<1 ,1 ,104) 

2860 NEXT 1 

2870 FOR 1=1 TO 24 

2880 CALL HCHAR( I ,30,104) 

2890 NEXT I 

2900 FOR 1=30 TO 3 STEP -1 
2910 CALL HCHAR<24,I ,104) 
2920 NEXT I 

2930 FOR 1=24 TO 1 STEP -1 
2940 CALL HCHARd ,3,104) 
2950 NEXT I 
2960 RETURN 

2970 CALL SOUND (250,659,0) 
2980 CALL SOUND< 250, 659,0) 
2990 CALL SOUND< 250, 587,0) 
3000 CALL SOUND< 250, 587,0) 
3010 CALL SOUND< 750, 523,0) 
3020 FOR X=l TO 100 
3030 NEXT X 

3040 CALL HCHAR<L,P+1 ,96) 

3050 P=P+2 

3060 J=J+1 

3070 RETURN 

3080 READ NO 

3090 FOR 1=1 TO NO 

3100 READ ROW, COL, T* 

3110 FOR J=0 TO LEhKT*)-l 

3120 CALL HCHAR<RCMJ,COL+J,AS 

C<SEG*<T*, J+1 ,1))) 

3130 NEXT J 

3140 NEXT I 

3150 RETURN 

3160 D=185 

3170 CALL SOUNDCD, 196,0) 
3180 CALL SOLND<D, 392,0) 
3190 CALL SOUNDCD, 196,0) 
3200 CALL SOUND<D, 392,0) 
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3210 CALL SOLBvJD<D, 196,8) 
3220 CALL SOll^D<D, 523, 0,659, 

0) 

3230 CALL S01WD< 0,523,0,659, 
0) 

3240 CALL SOL^D(D, 30000, 30) 

3250 CALL SOl^D<D, 262,0) 

3260 CALL S01MD< 0,523,0) 

3270 CALL S01W0< 0,262,0) 

3280 CALL S01W0( 0,523,0) 

3290 CALL 801^0(0,262,0) 

3300 CALL 80UN0< 0,784, 0,988, 

0) 

3310 CALL SOLMO< 0,784, 0,988, 
0) 

3320 CALL SOUNO( 0,30000, 30) 

3330 CALL SOLWO< 0,392,0) 





1./HL.L. 




,784, 


a s 










,392, 


a \ 
U ^ 






L/HL.L 




,784, 


o } 




OO f O 


PAI 1 


cm fKin/ n 












cm ^T\{ n 


,1047 




131 


9.0) 












3390 


CALL 


SOL^D( 


,1047 




131 


9,0) 












3400 


CALL 


SOLNO<0 


,30000,30) 


3410 


CALL 


SOUNO<0 


,1319 


,0) 




3420 


CALL 


SOlt^OCO 


,1047 


,0) 




3430 


CALL 


801^0(0 


,784, 


0) 




3440 


CALL 


801^0(0 


,659, 


0) 




3450 


CALL 


SOUNO<0 


,523, 


0) 




3460 


CALL 


SOUNO<0 


,659, 


0) 




3470 


CALL 


SOUNOCO 


,523, 


0) 




3480 


RETURN 









STATE CAPITAL QUIZ 



An Education Program in which states are randomly selected and the corresponding capital must be entered. 
Spelling skill enters the exercise since the capital must be spelled correctly to count. The player picks the 
number of questions he desires. At the end of the quiz the computer grades your efforts. 

100 REM«««««««««««««««««« 



110 
120 
130 
140 
150 
160 
170 
180 



REM» STATE CAPITOLS * 
REM* QUIZ » 

REM* EXTENOEO ^SIC * 
REM* BY PHIL TAYLOR * 
REM* HOLLANO, MICH. * 
REM* COPYRIGHT 5/83 * 



REM****************** 
CALL COLOR< 13,2,9) : : CAL 
L C0L0R(12,16,9) 
190 CALL CHAR<128, "000000000 
103070F");; CALL CI^R(129,"0 
01E3E7EFCFCFEFF'') 
200 CALL CHAR< 127, "000010373 
C3CFFFF"):: CALL CHAR<130,''0 
0787E7F3F3F7FFF'') 
210 CALL CHARdSl ,"000000000 
0E0F0F8") 

220 CALL CHAR( 132, "000000000 

0010303") s: CALL CHAR<133,"1 

F3F7F7FFFFFFFFA" ) 

230 CALL CHAR<134,"FFFFFFFFF 

F870701") 

240 CALL CHAR<135,"FFFFFFFFF 
FFFFFFF"):: CALL C0L0R<14,2, 
9) 

250 CALL CHAR<136,"FFFFFFFFF 



FE1E080") 



CALL CHAR < 137 



CFEFFFFFFFFFF5F" ) 



260 CALL CHAR< 138, "000000800 
0C0E0F0"):: CALL CHAR<139,"0 
7070F0O0818") 

270 CALL CHAR<140,"F0F0A") : : 
CALL CHARC 141," FFFFFF7E7E7E 
7EE7") 

280 CALL CHAR<142,"0F0B01") : 
: CALL CHAR<143,"F8F87C2C040 
6") 

290 CALL CLEAR : : CALL SCREE 

N(9):: 60SUB 1200 

300 01 SPLAY AT(8,2):"*** STA 

TE CAPITOLS QUIZ ***" 

310 CALL 801^0(300,262,0):: 

CALL SOUNO(300, 220,0) : : CALL 

80(^0(500,175,0) 
320 CALL 801^0(500,220,0):: 
CALL SOmO( 500, 262,0) 
330 CALL SOUNO( 700, 349,0) : : 
CALL SOUNO(300, 440,0) : : CALL 

SOUNO( 300, 392,0) 
340 CALL SOLff>JO(500,349,0) : : 
CALL SOUNO( 500, 220,0) 
350 CALL SOLWO(500, 247,0) : : 
CALL SOLWO( 700, 262,0) 
360 FOR 0=1 TO 400 : : NEXT 
370 CALL CLEAR : : INPUT "WAN 
T 0IRECTIO4S (Y OR N)? " :Y* 
: : IF Y*="N" THEN 470 
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389 CALL CLEAR : : PRINT TAB< 

19) ; "DIRECTIONS" : : : : 
399 PRINT "I WILL GI'v'E YOU T 
HE NmE OF": "THE STATE AND Y 
OU MUST GIVE" 

499 PRINT "ME THE N^E OF IT 

'S CAPITOL." : : 

419 PRINT "IF YOU MAKE A MIS 

TAKE, I";-WILL GIVE YOU THE 

CORRECT" 

429 PRINT "^WaJER. REMEMBER, 
MISTAKES" :" ARE A PART OF LE 
ARMING.": : 

439 PRINT "ENTER THE NUMBER 
OF QUE~":"TIOJS YOU WOULD LI 
KE TO" 

449 PRINT "ANaJER. I WILL 6R 
ADE YOUR": "EXAM WHEN YOU ARE 

FINISHED.": : 
459 PRINT "GOOD LUCK & HAPPY 

LEARNING!": : 
469 INPUT " (PRESS ENTER TO 
CCMTINUE)" :A* 
479 CALL CLEAR 

489 PRINT "HCH4 MANY QUESTION 
S WOULD YOULIKE TO TRY";:: I 
NPUT N : : CALL CLEAR 
499 RANDOMIZE 
599 C=9 : : Nl=9 
519 GOSUB 1299 
529 Ml=9 
539 RESTORE 

549 I F C=N THEN 649 : : C=C+ 1 

:: PRINT "QUESTION #";C 
559 X=INT<RND*59>+1 
569 FOR Q=l TO X : : READ Q* , 
A* :: NEXT Q :: PRINT Q*; 
579 INPUT R* :: IF R*=A* THE 
N 699 :: CALL SOLND< 599 , -2 , 9 
) 

589 PRINT "INCORRECT": :"THE 
CORRECT ANSWER IS: " ;A* 

599 FOR D=l TO 599 : : NEXT D 
:: CALL CLEAR :: GOTO 519 

699 M1=M1+1 :: IF Ml=5 THEN 

629 :: CALL SOL^D< 1 99 , 5999 ,9 

) 

619 CALL S0LffvJD<199,3999,9) : : 
GOTO 699 

629 PRINT "CORRECT ANSWER 

VERY GOODI" :: N1=N1+1 :: FO 
R D=l TO 599 

639 NEXT D : : CALL CLEAR : : 
GOTO 519 



649 DISPLAY 

659 PRINT "OUT OF ";N;" QUES 
TIC»^^S, YOU i=tf><SWERED" ;N1 ;" CO 
RRECTLY." 

669 DISPLAY :: P=INT< <N1/N) * 
199+.5> 

679 PRINT "YOUR PERCENTAGE F 
OR CORRECT ^SWERS IS";P;">:" 

• ■ 
■ • 

689 INPUT "TRY AGAIN? <Y/N) 

" :A* :: DISPLAY 

699 IF A*="Y" THEN 489 ELSE 

1279 

799 DATA "MI CHI GAN" , " Li2tf^JSING 

a 

719 DATA " COt^JECTI CUT" ," HART 
FORD" 

729 DATA "NEW YORK" , "ALBmf" 
739 DATA " ALAB^W^" , "MCMTGOME 
RY" 

749 DATA " ALASKA" ," Jl^EAU" 
759 DATA "ARI ZCm" ," PHOENIX" 
769 DATA "ARKAN^S" , "LITTLE 
ROCK" 

779 DATA " CALI FOI^I A" , " SACRA 
MENTO" 

789 DATA " COLORADO" ," DEf^WER" 
799 DATA " DELAUWRE" ," DOVER" 
899 DATA " FLORI DA" , "TALLAHAS 
SEE" 

819 DATA "GEORGIA" ," ATLANTA" 
829 DATA " HAWA II"," HONOLULU " 
839 DATA " I DAHO" , " BOI SE" 
849 DATA " I LLINOI S" , " SPRINGF 
I ELD" 

859 DATA " INDIANA" ," INDI^^P 
OLIS" 

869 DATA "ICftaA","DES MOINES" 
879 DATA " KANSAS" , "TOPEKA" 
889 DATA " KENTUCKY" ," FRANKFO 
RT" 

899 DATA "LOUI SI<firfv|A" , aa|T(»^^ R 
OUGE" 

999 DATA " I NE" , "AUGUSTA" 
919 DATA "MARYU^MD" ,"Aht^iAPOL 
IS" 

929 DATA "MASSACHUSETTS" ," BO 
STON" 

939 DATA "MimESOTA" , "MimEA 
POLIS" 

949 DATA "MI SSI SSI PPI " , " JACK 
SCN" 

959 DATA "MI SSOURI " , " JEFFERS 
ON CITY" 
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968 DATA -MONTANA- , "HELENA" 

978 DATA "NEBRASKA" , "LINCOLN 
■ 

988 DATA "NEVADA" , "CARSON CI 
TY" 

998 DATA "NEW H^PSHIRE" , "CO 
NCORD" 

1888 DATA "NEW JERSEY" , "TREN 
TON" 

1818 DATA "NEW MEXI CO" , "SANT 
A FE" 

1828 DATA "NORTH CAROLINA"," 
RALEIGH" 

1838 DATA "NORTH DAKOTA", "BI 
SMARCK" 

1848 DATA "OHIO" , "COLIUBUS" 
1858 DATA " OKLAHCWA" , " OKLAHO 
MA CITY" 

1868 DATA "OREGC»^J" , "SALEM" 
1878 DATA "PEh^JSYL'vW^IA" , "hW 
RRISBURG" 

1888 DATA "RHODE ISLAND", "PR 
CWIDENCE" 

1898 DATA "SOUTH CAROLIhW"," 
COLUMBIA" 

1188 DATA "SOUTH DAKOTA", "PI 
ERRE" 

1118 DATA "TEhff>4ESSEE" ,"NASHM 
ILLE" 

1128 DATA "TEXAS" ," AUSTIN" 
1138 DATA "UTAH", "SALT LAKE 
CITY" 



1148 

lER" 

1158 

ND" 

1168 

MA" 

1178 



DATA "VERMONT" ,"MONTPEL 



DATA "VIRGINIA' 



RICmO 



DATA "WASHINGTON" ,"TACO 



DATA "WEST VIRGINIA' 



"WISCONSIN" ,"MADIS 



DATA "WYOMING" ,"CHEYEf^ 



HARLESTON' 
1188 DATA 
ON" 
1198 
E" 

1288 CALL VCHAR<13,15,128) : : 

CALL VCHAR<13,16,129) s : CAL 
L VCHAR<13,17,127> 
1218 CALL VCHAR<13,18,138) : : 

CALL VCHAR<13,19,131) 
1228 CALL VCHAR<14,14,132) : : 

CALL VCI^R<14,15,133> ; : CAL 
L VCWiR<14, 16,134) 
1238 CALL VCHAR<14,17,135) : : 

CALL VChMR<14,18,136> 
1248 CALL VCHAR<14,19,137) ! : 

CALL VCKAR<14,28,138) : : CAL 
L VCHAR<15,14,139) 
1258 CALL VCHAR<15,15,148) : : 

CALL VCHAR<15,17,141) 
1268 CALL VCHAR(15,19,142):: 

CALL VCHAR< 15,28, 143) : : RET 
URN 

1278 CALL CLEAR :: END 
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SPACE FURY 



One of those rare space games that has no violence! The task is to dock your craft into the space station 
satelite using keyboard or joystick. To accomplish this you must weave the craft through an endless meteor 
shower, and adding to the difficulty is the fact that some of the meteors are invisible! This program will develop 
your ability as a key-punch pilot. 



186 REM«««««««««*«««««« 
110 REM* SPACE FURY * 
129 REM»EXTENDED BASIC* 
138 REM* BY J. GULICK * 
148 REM*FT.MITCHELL,KY* 
158 REM*COPYRIGHT 1983* 
168 REM**************** 
178 REM**INSTRUCTIONS** 
188 CALL CLEAR :: PRINT TAB< 
9); "SPACE FURY": '."THE ORBIT 
IN6 SPACE STAT I (>^" 
198 PRINT "IS IN TROUBLE. TH 
ERE IS AN OUTBREAK OF A STRA 
NGE PLAGUE - 

288 PRINT "ABOARD THE STATIO 
N- YOU WWEBEEN CHOOSEN TO F 
LY A CASE" 

218 PRINT "OF MEDICAL SUPLIE 
S TO THEM. HOWEVER, A FREAK 
METEOR" 

228 PRINT "SHOWER HAMPERS YO 
UR COURSE. USING THE ARROW K 
EYS OR JOY-" 

238 PRINT "STICK #1, YOU CAN 
GUIDE YOURCRAFT INTO THE DO 
CKS WITHOUT" 

248 PRINT "COLLIDING WITH A 
METEOR <*).GOOD LUCK!": :" 

HIT <ENTER> TO BEGIN." 
258 CALL KEY<8,X,S):: IF X<> 
13 THEN 258 

268 REM**INITIALIZATIGW** 
278 CALL CLEAR : : CALL DELSP 
RITECALL) 

288 CALL SCREEN<2):: RANDOII 
ZE :: CALL C0L0R<8 ,2, 16, 13, 1 
6,2) 

298 CALL CHAR<128,"F8287C7E7 
F28F8882C55C22C55C22C55C8E8F 
8FCFEFFFFFFFFFFFFFEFCF8E8C8 " 



388 REM**PROGRAM RUN** 
318 0=8 :: R=8 :: CALL SPRIT 
E(#l ,128,7,88,18) : : CALL ^^CH 
AR<1 ,31 ,31 ,96) 

328 DISPLAY AT< 1 2 , 28) : CHR*< 1 
30);:: DISPLAY AT( 13,28) :CHR 
*<131) ; 

338 FOR X=2 TO 27 : : CALL SP 
RITE<#X,42,INT(RND*14)+3,INT 
<RND*192)+1 ,255,1 ,-8) 
348 NEXT X 

358 CALL JOYSTCl ,S,W) : : IF < 
W=8)+<S=8)=-2 THEN 378 
368 Q=Q-W : : R=R+S/2 : : GOTO 
388 

370 CALL KEY<1,W,S):: Q=Q+<W 
=5)*4-<W=8)*4 :: R=R+(W=2)*2 
-<W=3)*2 

388 CALL M0TI(>J<#1 ,Q,R) : : IF 

ABS<Q)>5 THEN Q=5*S(^<Q) 
398 CALL COINC<ALL,M) : : IF M 
=8 THEN 418 

488 CALL PATTERN<#1 ,129) : : C 
ALL SOl^D< 588,-5,8) : : CALL D 
ELSPRITECALL) : : GOTO 318 
418 CALL P0SITI(>4<#1 ,P,Y) 
428 IF P>182 OR P<18 THEN CA 
LL MOTiavJ<#l ,-2*S(^<Q) ,1) : : 
Q=-2*SGN<Q) 

438 CALL COINC<ttl ,99, 235,9, P 
S) 

448 IF PS THEN CALL MOTIC»vJ<# 
1,8,8)ELSE 358 :: CALL SOUND 
(1888,668,8) 

458 CALL SCREEN<16):: PRINT 

"TO PLAY AGAIN PRESS < ENTER > 
■ 

468 INPUT K* : : GOTO 278 
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DEATH MOBILE 



Your mission is to destroy an experimental vehicle that has gone berserk! If your shots are on target 100 times, 
you move on to a bonus round. You have 3 try's to make it. The pace makes it more difficult than you think! 
Joysticks optional 



180 REM «««««««««««««««« 

lie REM » DEATH MOBILE * 

128 REM » TI BASIC » 

130 REM « BY DON BUSCH * 

140 REM «CINCIht^WTI ,0H.« 

150 REM ^COPYRIGHT 1983* 

160 REM «««««««««««««««« 

170 REM »*INITIALIZATICHvJ*» 

180 CALL CLEAR 

190 FOR C0L=2 TO 12 

200 CALL COLOR< COL, 16,1) 

210 NEXT COL 

220 CALL COLOR< 13,7,1) 

230 CALL COLORC 14,5,1) 

240 CALL SCREEN<2) 

250 REM «*INSTRUCTI(>4S*» 

260 PRINT " DEATH MOB I 

270 PRINT "AN EXPERIMENTAL C 
AR, THE DEATH MOBILE, mS 

GGNE OUT " 
280 PRINT "OF CCff^JTROL. YOUR 
MISSK^ IS TO Rl^ INTO IT 
E HLWDRED" 

290 PRINT "TIMES TO DESTROY 
IT. YOU WILL THEN GO TO A 
B(>JUS" 

300 PRINT "ROmD WHERE INSTR 

gcTica^iS" 

310 PRINT "WILL BE GIVEN. TH 
EN MOTHER DEATH MOBILE WILL 

BE SENT" 
320 PRINT "OUT FOR YOU TO CO 
NQUER . " : : 

330 PRINT " « JOYSTICK-ALPHA 
LOCK <UP> ^KEYBOARD-ALPHA 
LOCK<DCMvi>" : : 

340 PRINT " W=up 
0=left 

P=p i gh t " 

350 PRINT " S=down" 
s"hold any other key to paus 
e" 

360 PRINT :" HIT ANY KEY T 
BEGIN" 

370 CALL KEY<0,KEY,STA) 
380 IF STA=0 THEN 370 
390 CALL CLEAR 



400 PRINT "AN EXTRA NOTE:" 
410 PRINT "TWO CROSSES ARE F 
ORMED EACH TIME YOU HIT THE 
DEATH 

420 PRINT "MOBILE. MORE ARE 
FORMED AS" 

430 PRINT "YOU DESTROY MORE 
DEATH MOBILES. BE SURE 

NOT TO" 

440 PRINT "CRASH INTO THE WA 
LLS OR THE CROSSES; THREE CR 
ASHES ENDS YOUR GAME . " : s 
450 PRINT : s"REMBER,THE ALPH 
A LOCK MUST BE <DCaJN> FOR K 
EYBOARD fii^D' 

460 PRINT ■<UP> FOR JOYSTICK 

a m m 

a . 

470 PRINT " HIT ANY KEY TO 
BEGIN" 

480 CALL KEY<0,KEY,STA) 

490 IF STA=0 THEN 480 

500 REM «ttINITIALIZATION»» 

510 RANDCMiIZE 

520 SH=3 

530 CD=0 

540 SC=0 

550 LV^l 

560 CALL CW*R<129,"FFFFFFFFF 
FFFFFFF" ) 

570 CALL CHAR<128,"0018187E7 
E181800") 

580 CALL CHAR<130,"7EFFFFFFF 
FFFFF7E") 

590 CALL CHAR<127,"815A3C7E7 
E3C5A81 ■ ) 

600 CALL ChWR<136,"5A7Ea=il83 
CBDFFBD") 

610 CALL CHAR<137,"BDFFBD3C1 
85A7E5A") 

620 CALL C»^R<138,"07E24FFFF 
F4FE207") 

630 CALL CHAR<139,''E047F2FFF 
FF247E0") 

640 REM «»PRINT BORDER** 
650 CALL CLEAR 
660 CALL HCHAR<1 ,1 ,129,32) 
670 CALL HCWiR<24,l ,129,32) 
680 CALL VCHAR<2,1 ,129,22) 
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698 CALL VCW^R<2,32,129,22) 

788 REM »*SET POSITIONS** 

718 RDM=16 

728 CDM=16 

738 MDR=16 

748 MDC=16 

758 Kl=79 

768 CHAR=138 

778 YC=16 

788 YR=4 

798 RY=4 

888 CY=16 

818 REM **PRINT CARS»» 
828 CALL HCHAR<YR,YC,32) 
838 CALL HChWR<RY,CY,CHAR) 
848 CALL HCHAR<MDR,MDC,32) 
858 CALL HCHAR<RDM,CDM,127) 
868 CALL GCHAR<RY,CY,CR1) 
878 REM »»YOUR MCWE*» 
888 CALL J0YST<2, JC, JR) 
898 YC=CY 
988 YR=RY 

918 IF JC+JR=8 THEN 968 

928 CY=CY+JC/4 

938 RY=RY-JR/4 

948 CHAR=135-< JR=4)-<<JR=-4) 

»2) -< < JC=-4) *3) -( < JC=4) *4) 

958 GOTO 1848 

968 CALL KEY<8,K,S) 

978 IF S08 THEN 998 

988 K=K1 

998 IF <K=79)+<K=88)+<K=83)+ 
<K=87)=8 THEN 968 
1888 CY=CY+<K=79)-<K=88> 
1818 RY=RY+<K=87)-<K=83) 
1828 K1=K 

1838 CHAR=135-<K=87)-<<K=83) 
*2)-<<K=79)*3)-<<K=88)»4) 
1848 REM ♦DEATH'S MOVEMENT* 
1858 MDR=RDM 
1868 MDC=CDM 

1878 RDM=RDM+<INT<3*RND)-1) 
1888 CDM=CWi+<INT<3*RND)-l) 
1898 RDM=RCW+<RDM>23)-<RCW<2 
) 

1188 CDM=CDM+<CDM>31)-<CDM<2 
) 

1118 REM **COINC CHECK** 
1128 CALL GCI^R<RY,CY,CR) 
1138 IF <CR=127>+<CR1=127)TH 
EN 1418 

1148 IF CR>127 THEN 1178 
1158 GOTO 828 

1168 REM *CRASH SEQUENCE* 



1178 CALL HCHAR<YR,YC,32) 

1188 CALL S0UND(2888,-7,8) 

1198 FOR CA=1 TO 28 

1288 CALL HCHAR<RY,CY,32> 

1218 CALL HCHAR<RY,CY,138) 

1228 NEXT CA 

1238 SH=SH-1 

1248 CALL CLEAR 

1258 PRINT : : SCORE 

="&STR*<SC) 

1268 PRINT : : "&STR* 
<SH)&" CAR<S> LEFT"::: 
1278 IF SH>8 THEN 1358 
1288 REM **GAME (X^ER** 
1298 PRINT " GAME OV 

ER- 

1388 PRINT : : : 

1318 PRINT " HIT ANY KEY TO 

PLAY A(^IN" : : : 

1328 CALL KEY<e,KL,SL) 

1338 IF SL=8 THEN 1328 

1348 GOTO 188 

1358 PRINT : : : : : 

1368 PRINT " HIT ANY KEY T 

C(>JTINUE" 

1378 CALL KEY(8,KI,SI) 
1388 IF SI=8 THEN 1370 
1398 GOTO 650 
1400 REM **HIT DEATH** 
1410 CALL SOLND<200,2000,2) 
1420 CALL HCHAR<YR,YC,32) 
1430 CALL HCHAR<RY,CY,Crti!iR) 
1440 CALL HCHAR<MDR,MDC,32) 
1450 CALL HCI^R<RDM,CDM,127) 
1460 CALL HCHAR(<INT<22*RND) 
+2) ,<INT<<31-LV)*RND)+2) ,128 
,LV) 

1470 CALL HCHAR<<INT<22*RND) 
+2) ,<INT(<31-LV)*RND)+2> ,128 
,L'v') 

1480 SC=SC+100 
1490 CD=CD+1 

1500 IF CD=100 THEN 1530 

1510 GOTO 1140 

1520 REM **BCMMUS ROIMD** 

1530 FOR S0=1 TO 3 

1540 CALL SOl^D<200, 110,0) 

1550 FOR DELAY=1 TO 70 

1560 NEXT DELAY 

1570 NEXT SO 

1580 CALL CLEAR 

1590 PRINT " YOU HAVE JUST 

COMPLETED" : " LEVEL 

"&STR*<LV) 
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1600 PRINT SCORE= 
'•&STR*<SC) 

1610 PRINT :::"HIT ANY KEY F 

OR INSTRUCTIC9^^S" TO THE 

BONUS ROLBvJD" : : 

1620 CALL KEY<0,KM,SM) 

1630 IF SM=0 THEN 1620 

1640 REM »* INSTRUCTIONS** 

1650 CALL CLEAR 

1660 PRINT BONUS R 

Ol^D-zz-THE OBJECT HERE IS T 

RUN" 

1670 PRINT "INTO THE MOTI(>JL 
ESS DEATH" 

1680 PRINT "MOBILE. WHEN YOU 
HIT IT, ANOTHER DEATH MO 
BILE WILL APPEAR CN" 
1690 PRINT -THE SCREEN. DO T 
HIS" 

1700 PRINT "UNTIL THE SCREEN 
FREEZES. SCORE 100 POINTS 
FOR THE" 

1710 PRINT "FIRST DEATH MOBI 

LE YOU HIT," 

1720 PRINT "200 FOR THE SECO 

ND, ETC. DO THIS UNTIL YOUR 

BCMUS TIME RUNS OUT." 

1730 PRINT :" HIT ANY KEY 

TO BEGIN" : : : : : 

1740 CALL KEY<0,KEY,STA) 

1750 IF STA=0 THEN 1740 

1760 REM ^INITIALIZATION* 

1770 CALL CLEAR 

1780 DB=INT<25*RND)+INT(25*R 

ND)+(25*H^)+2 

1790 LV=LV+1 

1800 IF LV<31 THEN 1820 

1810 UJ=3^ 

1820 CH=0 

1830 SCB=0 

1840 CD=0 

1850 PT=0 

I860 REM **BORDER,CARS** 
1870 CALL CLEAR 
1880 CALL HCI^Rd ,1 ,129,32) 
1890 CALL HCHAR<24,1 ,129,32) 
1900 CALL 'v'CHAR<2,l ,129,22) 
1910 CALL VCHAR<2,32,129,22) 



1920 CALL HCHAR<<INT<22*RND) 
+2) ,<INT<30*RND)+2) ,127) 
1930 CALL HCI^R<YR,YC,32) 
1940 CALL HCHAR<RY,CY,CmR) 
1950 REM **MOVEMENT** 
I960 CALL KEY<0,KB,SB) 
1970 IF SBO0 THEN 1990 
1980 KB=BC 
1990 YC=CY 
2000 YR=RY 

2010 CY=CY+<KB=79)-<KB=80) 
2020 RY=RY+<KB=87)-<KB=83) 
2030 BC=KB 

2040 ChWR=135-<KB=87)-<<KB=8 
3) *2) -< < KB=79) *3) -< < KB=80 ) *4 
) 

2050 REM **COINC CHECKS** 

2060 CALL GCHAR<RY,CY,CRB) 

2070 IF CRB0129 THEN 2110 

2080 RY=RY-<KB=87)+<KB=83) 

2090 CY=CY-<KB=79)+(KB=80) 

2100 GOTO 2170 

2110 IF CRB0127 THEN 2170 

2120 CALL SOUND(200,2000,2) 

2130 CH=CH+1 

2140 SC=SC+<CH*100) 

2150 SCB=SCB+<CH*100) 

2160 CALL HCHAR<(INT<22*RND) 

+2) , < INT<30*RND)+2) ,127) 

2170 PT=PT+1 

2180 IF PT=110+DB THEN 2200 

2190 GOTO 1930 

2200 FOR S0=1 TO 3 

2210 CALL SOUND( 200, 110,0) 

2220 FOR DELAY=1 TO 70 

2230 NEXT DELAY 

2240 NEXT SO 

2250 REM *BOJUS ROUND OVER* 

2260 CALL CLEAR 

2270 PRINT ::" BONUS ROLND 

SCORE="&STR*<SCB) 
2280 PRINT ::" TOTAL SCO 

RE="&STR*(SC) 

2290 PRINT HIT fii^ KE 

Y TO CONTINUE" : : : 
2300 CALL KEY<0,KZ,SZ) 
2310 IF SZ=0 THEN 2300 
2320 GOTO 650 
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GRIZZLEY! 



Shoot your arrows wisely, this is a bear you're playing 
vicinity of the proper coordinates is the only way to 




188 REM ****************** 
118 REM * GRIZZLY * 
128 REM * TI BASIC * 
138 REM * BY PHIL TAYLOR * 
148 REM *HOLL^D, MICHIGAN* 
158 REM * COPYRIGHT 1983 * 
168 REM 

178 CALL CLEAR 

188 CALL SCREEN<16) 

198 DEF A=(AA+3)*AA 

288 CALL CHAR< 128, "888888888 

8888F7F-) 

218 CALL CHAR< 129, "888888888 
1871FFF") 

228 CALL CHAR< 138 , '•88888848E 
8F8F8F8'') 

238 CALL CHAR< 131 , "888888888 
8838367") 

248 CALL CHAR<132,''818387E77 
77FFFFF'') 

258 CALL CHAR<133,"FCFCFFFFF 
FFFFFFF") 

268 CALL CHAR<134,"FFFFFFFFF 
FFFFFFF") 

278 CALL CHAR<135, "F8F8D8889 
83878Ee") 



and he's invisible until hit! Aiming your arrow in the 
this one! Pay attention, this game is for keeps! 

288 CALL CHAR< 136, "888888818 
1838787") 

298 CALL CHAR<137,"888888FFF 
FFFFFFF") 

388 CALL CHAR( 138, "881E8FFFF 
FFFFFFF") 

318 CALL CHAR( 139, "7FFFFFFFF 
FFFFFFF") 

328 CALL CHAR< 141 , "FFFFFFFFF 
FFFFCF8") 

338 CALL CH^R< 142, "E8C88" ) 
348 CALL CHAR(143,"8FeFlF3F3 
F7F7FFF" ) 

358 CALL CHAR< 145, "F8F8F8F8F 
8F8F8E8") 

368 CALL CHAR< 147, "88C8EeFeF 
8FCF8F8" ) 

378 CALL CHAR< 149, "FEFCFCF8F 
8EeC88") 

388 CALL CHAR( 158 , "83878F" ) 
398 CALL CHAR< 151 , "EeC88" ) 
488 CALL CHAR ( 152, "7F3F3F1F8 
F878783") 

418 CALL CHAR< 153, "3F1F9FCFE 
7F3F8F8" ) 

428 CALL CHAR(154,"F8E8E8F8F 
CFEFEFE" ) 

438 CALL CHAR( 155, "878787878 
7838181 " ) 

448 CALL CHAR < 156, "FFFEFCF8F 
8F8FCFE" ) 

458 CALL COLORd ,9,16) 

468 CALL CHAR < 144, "F8F8FFF8F 

8F8F8E8") 

478 CALL CHAR<36,"8888FF") 
488 CALL CHAR<33, "8888888888 
888824") 

498 CALL CHAR<34, "4898FC9848 
24" ) 

588 GOSUB 1288 

518 PRINT TABCl 1 ); "GRIZZLY" : 

• ■ ■ 

• ■ ■ 

528 FOR D=l TO 758 

538 NEXT D 

548 CALL CLEAR 

558 INPUT "WANT DIRECT I CNS? 

<Y/N) " :A* 

568 IF A*="N" THEN 658 

578 CALL CLEAR 
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ARE BEING CHASED 
GRIZZLY." : : 
' THE BEAR'S LOCA 
RANDOMLY SET. TO 



IF YOU FAIL TO 
GRIZZLY BEFORE 



6E 
US 



YOUR ARRCWS, 
YOU. " : : : : : 
PICK DEGREE OF 



:AA 



HE U 



DI 



580 PRINT " YOU ARE ALONE I 
N THE WOODSWITH A BOW AND ON 
LY THREE" 

590 PRINT "<3) ARROWS. SUDDE 
NLY YOU" 
600 PRINT 
BY A MAD 
610 PRINT 
TION IS 
SHOOT, YOU" 

620 PRINT "SIMPLY ENTER A NU 
MBER." 
630 PRINT 
T THE 
ING ALL" 
640 PRINT 
ILL GET 
650 PRINT 
FFICULTY" : 
660 INPUT "1,2,3: 
670 CALL CLEAR 
680 PRINT "IN THIS DIFFICULT 
Y LEVEL YOUWILL BE ENTERING 
NUMBERS FRm 1 TO" ;A 
690 PRINT ::::::: 
700 PRINT " HAPPY HUNTING A 
ND GOOD LUCK! " : : s : 

710 INPUT " (PRESS ENTER TO 
CONTINUE) " :A* 
720 REM ***GAME 
CALL CLEAR 
RANDOMIZE 
G=0 

B=INT<RND*A>+1 
REM ***FLASH BEAR»»* 
CALL CI^R<157,"071E3F7CF 
CFEF29") 

790 FOR L=l TO 10 
N=INT<24*RND)+1 
Y=110»<2^<1/12))'^N 
R=INT<18*RND)+1 
C=INT<30*RND)+1 
CALL SOUND<10,Y,2) 
CALL HCHAR(R,C,157) 
FOR D=l TO 25 
NEXT D 
CALL CLEAR 
NEXT L 

INPUT "WHERE WOULD YOU L 
TO SHOOT? " : S 

G=G+1 

IF S=B THEN 1050 
IF (S<1)+<S>A)=~1 THEN 9 



730 
740 
750 
760 
770 
780 



800 
810 
820 
830 
840 
850 
860 
870 
880 
890 

900 

IKE 
910 
920 
930 
50 



940 GOTO 990 
950 DISPLAY 

960 PRINT "ENTER 1 - " ;A 
970 INPUT S 
980 GOTO 920 
990 DISPLAY 

1000 CALL SOUND<200,-5,1) 

1010 IF G=3 THEN 1100 

1020 PRINT "YOU MISSED, TRY 

AGAIN!":: 

1030 CALL CLEAR 

1040 GOTO 900 

1050 CALL CLEAR 

1060 GOSUB 1200 

1070 GOSUB 1500 

1080 PRINT "Ca^4GRATULATIOJS. 

YOU HAVE JUST BAGGED THE 
GRIZZLY." : : 
1090 GOTO 1160 

1100 REM *\BEAR GETS HltvTTER * 
1110 CALL CLEAR 
1120 GOSUB 1200 
1130 PRINT "I WILL INFORM YO 
AND FRIENDS OF Y 



PRINT 
UR FAMILY 
OUR DOCffl." 
1140 PRINT 
EN EATEN BY 
1150 PRINT 



"YOU HAVE JUST BE 



A MAD GRIZZLY." 



1160 INPUT "\4^T 
IN? <Y/N) " :A* 
1170 CALL CLEAR 
1180 IF A*="Y" THEN 
1190 END 

1200 CALL VCHAR<8, 
1210 CALL VCHAR<8, 
1220 CALL VCHAR<8, 
1230 CALL VCW%R<9, 
1240 CALL VCHAR<9, 
1250 CALL VCHAR<9, 
1260 CALL VCHAR<9, 
1270 CALL VCHAR<9, 
1280 CALL VCHAR<10 
1290 CALL HCHAR<10 
1300 CALL VCHARa0 
1310 CALL VCHAR<10 
1320 CALL HCHAR<10 
1330 CALL VCHAR<10 
1340 CALL VCHAR<10 
1350 CALL VCHARCll 
1360 CALL HCHARdl 
1370 CALL VCHAR<11 
1380 CALL HCHAR<12 
1390 CALL VCHAR<12 



TO PLAY AGA 



650 

7,128) 

8,129) 

9,130) 

5,131) 

6,132) 

7,133) 

8,134) 

9,135) 

11 ,136) 

12,137,2) 

14,138) 

15,139) 

16,134,2) 

18,141) 

19,142) 

11 ,143) 

12,134,6) 

18,145) 

11 ,134,8) 

19,147) 



68 



1490 CALL HCHAR<13, 11 ,134,6) 

1410 CALL »v'CHAR<13,17,149) 

1420 CALL VCHAR<13,18,150) 

1430 CALL VCHAR<13,19,151) 

1440 CALL VCHAR< 14,11 ,152) 

1450 CALL VCHAR(14,12,153) 

1460 CALL VCHAR<14,13,154) 

1470 CALL 'v»CHAR<14,15,155) 



1480 CALL »v'CHAR<14,16,lS6) 

1490 RETURN 

1500 REM ***ARROW IN BEAR*** 

1510 CALL VCHAR< 11 ,18,144) 

1520 CALL VCHARdl ,19,36) 

1530 CALL 'v^CHAR<10,20,33) 

1540 CALL MCHARC 11 ,20,34) 

1550 RETURN 



TONK 

You may be familiar with this card game in which the object is to get a total of 31 without going over. Take as 
many cards as you want; only the cards 1 thru 10 are used so keep track of what comes up. Closest to 31 wins, 
over 31 busts. 



100 REM ****************** 
110 REM * TmK * 

120 REM * TI BASIC * 
130 REM * PHIL TAYLOR * 
140 REM *H0LL^D,MICHI6AN* 
150 REM * COPYRIGHT 1983 * 
160 REM ****************** 
170 CALL CLEAR 
180 CALL SCREENdl) 
190 R^2rfviDC»1IZE 

200 CALL CHAR(58,''8E91919191 
91918E") 

210 PRINT TAB<10) ;"***TCtfNJK** 

*"::::::::::: 

220 FOR L=l TO 10 

230 FOR C=l TO 16 

240 CALL SCREEN<C) 

250 NEXT C 

260 NE>T L 

270 CALL CLEAR 

280 INPUT "WANT INSTRUCTI(>JS 

? <Y/N) "rZ* 

290 CALL CLEAR 

300 IF Z*=''N'' THEN 390 

310 REM **6IVE INSTRUCTI(>^S 

320 PRINT "'TONK' IS A aa» 

ME PLAYED" WITH SPECIAL CAR 

DS UTILIZING" 

330 PRINT "ONLY THE NmBERS 
1-10." : : 

340 PRINT "THE OBJECT IS FOR 
THE COM-" :"PETITORS TO OBTA 
IN A TOTAL" 



350 PRINT "AS CLOSE TO "31' 
AS POSSIBLE" 

360 PRINT "WITH AS MANY CARD 
S AS ARE" : "NEEDED. THE PLAYE 
R CLOSEST" 

370 PRINT "TO '31' WITHOUT G 
OING OVER, WINS" :TAB<10) ;"60 
OD LUCK !":::: 

380 INPUT " (PRESS ENTER TO 

CONTINUE)" :Z* 

390 REM ***GAME*** 

400 CALL CLEAR 

410 INPUT "1ST PLAYER'S NAME 
? " : B* 

420 INPUT "2ND PLAYER'S NAME 
? " :C* 

430 CALL CLEAR 

440 PRINT TAB<3) ;"**** PLEAS 

E STAND BY *»**" : : 

450 PRINT "I'M BUSY SHUFFLIN 

G THE CARDS" :::::: 

460 FOR 0=1 TO 8 

470 CALL SOUND< 15,-5,9) 

480 FOR C=5 TO 11 

490 CALL SCREEN<C) 

500 NEXT C 

510 NEXT Q 

520 CALL CLEAR 

530 CALL SCREEN(ll) 

540 REM **1ST PLAYER 

550 PRINT "YOU'RE FIRST " ;B* 
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560 N=0 

570 60SUB 1270 

580 B=INT<RND*10)+1 

590 CALL HCHAR<9,15,B+48) 

600 CALL HCHAR< 15, 18,B+48) 

610 N=N+B 

620 IF N=31 THEN 690 
630 IF N>31 THEN 740 
640 PRINT "CARD = " ;B 
650 PRINT TAB<3) ; -TOTAL = 
N 

660 INPUT "WANT ANOTHER CARD 

? <Y/N> " :Z* 

670 CALL CLEAR 

680 IF Z*="Y" THEN 570 

690 PRINT B*;", YOUR TOTAL I 

8 * ;N 

700 FOR D=l TO 500 
710 NEXT D 
720 CALL CLEAR 
730 GOTO 810 

740 PRINT "YOU BUSTED ";B*;" 

WITH A TOTAL OF " ;N: : 

750 CALL SOLWD< 1000, -2,1) 

760 GOTO 1170 

770 FOR D=l TO 500 

780 NEXT D 

790 CALL CLEAR 

800 REM **2ND PLAYER»» 

810 PRINT "O.K., IT'S YOUR T 

URN " ; C* : : 

820 M=0 

830 GOSUB 1270 

840 C=INT<RND*10)+1 

850 CALL HCHAR< 9,15,0+48) 

860 CALL HCI^R( 15,18,0+48) 

870 M=M+C 

880 IF M=31 THEN 960 

890 IF M>31 THEN 1020 

900 PRINT "CARD = " ;C 

910 PRINT TAB<3) ;-TOTAL = "; 

M 

920 PRINT "WANT ^^OTHER CARD 

? Y OR N" 

930 INPUT Z* 

940 CALL CLEAR 

950 IF Z*="Y" THEN 830 

960 DISPLAY 



970 PRINT C*;", YOUR TOTAL I 
S " ;M 

980 FOR D=l TO 500 
990 NEXT D 
1000 CALL CLEAR 
1010 GOTO 1080 

1020 PRINT "YOU BUSTED " jC*; 

"WITH A TOTAL OF " ;M: : 

1030 CALL SOmD( 1000, -2,1) 

1040 GOTO 1110 

1050 FOR D=l TO 500 

1060 NEXT D 

1070 CALL CLEAR 

1080 PRINT B*;", YOUR TOTAL 

WAS " ;N: : 

1090 PRINT C*;", YOUR TOTAL 
U^S " ;M: : 

1100 IF N=M THEN 1230 

1110 AT0TAL=31-N 

1120 BT0TAL=31-M 

1130 IF AT0TAL<BT0TAL>-1 THE 

N 1150 

1140 IF BT0TAL<AT0TAL>-1 THE 
N 1190 

1150 IF M<32 THEN 1170 
1160 GOTO 1210 

1170 PRINT C^ ; " ««««««««««««W 

INS*«***»***»»*" : : 

1180 GOTO 1240 

1190 IF N<32 THEN 1210 

1200 GOTO 1150 

1210 PRINT B$ ; " ««««»«««««««W 
INS«»**»»»***«*" : ; 
1220 GOTO 1240 

1230 PRINT "*»**»»****»*TIE* 

1240 INPUT "WANT TO PLAY AGA 
IN? (Y/N) »:Z* 
1250 IF Z*="Y" THEN 430 
1260 END 

1270 REM *»DRAW CARD** 

1280 FOR 1=8 TO 16 

1290 CALL HC^^R<I ,14,127,6) 

1300 NEXT I 

1310 FOR 1=9 TO 15 

1320 CALL HCI^R< I ,15,152,4) 

1330 HEXJ I 

1340 RETURN 
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CURVE & CIRCLE PLOTS 



A program that allows you to display curves and circles and change the variables to observe the results. 

Curve: This enables the user to plot a curve on a grid 64 blocks horizontally by 48 blocks 
vertically using any mathematical function in the first quadrant of the cartesian coordinate 
system. This function is located in line 720. The coordinate system is shown in figure 1 and a 
function graph is shown in figure 2. Remembering that X is the horizontal variable and Y is the 
vertical variable, the location of X=3, Y=3 is indicated by the dot in figure 1. 



y y 




fig. i. 



fig. Z 



If this is all Greek to you, the program can still 
program changes and observing the effect after 

188 REM 

118 REM * CURVE PLOT * 
128 REM * TI BASIC * 
138 REM * BY TOI BANCHY » 
148 REM * CINCimATI ,OHIO » 
158 REM * COPYRIGHT 1983 * 
168 REM ******************* 
178 REM **INITIALIZATION** 
188 CALL CLEAR 
198 CALL SCREEN<8) 
288 CALL COLORC 13,2,1) 
218 CALL CHAR< 128, "C8C8C8C8" 
> 

228 CALL CH^R< 129, "888888880 
8C8C8C8") 

238 CALL CHAR<138,"8C8C8C8C- 
) 

248 CALL CHAR( 131 , "888888888 
C8C8C8C" > 



be enjoyed by making the following seven 
each change. 

258 CALL CHAR ( 132, "CCCCCCCC" 
) 

268 CALL CI^R<133, "888888880 
0000000" ) 

278 CALL OHAR< 134, "080808088 
0808080") 

288 CALL CHAR< 135, "808080800 
8080808") 

298 REM *«MAIN LOOP** 

388 FOR 0=1 TO 63 STEP 2 

318 X0=INT<Q/2)+l 

328 XA=Q 

338 XB=Q+1 

348 X=XA 

358 GOSUB 728 

368 P=48-INT(Y) 

378 IF P/2=INT(P/2)THEN 418 

388 P0R=INT(P/2)+l 

398 CHAR=129 
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400 GOTO 430 

410 P0R=(P/2)+l 

420 CHAR=128 

430 X=XB 

440 60SUB 720 

450 P=48-INT(Y) 

460 IF P/2=INT(P/2>THEN 500 

470 P0T=I|vrr<P/2> + l 

480 CHAG=131 

490 GOTO 520 

500 P0T=<P/2)+l 

510 CHAG=130 

520 IF POR=POT THEN 580 

530 IF <P0R>24)+(P0R<1 )<0 TH 

EN 550 

540 CALL HCHAR<POR,XC,CHAR) 
550 IF (POT>24)+<POT<1)<0 TH 
EN 700 



560 CALL HCHAR<POT,XC,CHAG) 
570 GOTO 700 

580 IF CHAR=129 THEN 640 
590 IF CHAG=131 THEN 620 
600 CHAT=132 
610 GOTO 680 
620 CHAT=134 
630 GOTO 680 

640 IF CHAG=131 THEN 670 
650 CHAT=135 
660 GOTO 680 
670 CHAT=133 

680 IF <POR>24)+<POR<1)<0 TH 
EN 700 

690 CALL HCHAR(POR,XC,CHAT) 

700 NEXT Q 

710 GOTO 710 

720 Y=<SIN<X/4)*22)+24 

730 RETURN 



These seven variations are to be incorporated into the original listing of this program, 
therefore before making each change be certain that the program listing is in it's original form. 

VARIATION #1-720 Y=( SIN< D/1 . 5) +SIN< D/3))*7+24 



#2- 720 Y=L0G<D'^8) 

#3- 720 Y=<:(ABS<D-32>)/3^2+3 

#i+-295 FOR T=0 TO 12 STEP 2 
705 NEXT T 

720 Y=<SIN<<D-T)/6)*<22-T))+24 

#5-295 FOR T=l TO 1 TO 3 

350 m T GOSUB 720,740,760 
440 ON T GOSUB 720,740,760 
705 NEXT T 

720 Y=<30*SIN< (D-4) 16) >»EXP<-1 *(D/20) ) )+24 
730 Y=<30*EXP<-*<<D-4>/20)))+25 
740 RETURN 

750 Y=-1*(30»EXP<-1*< <D-4)/20>>>+23 
760 RETURN 

#6-720 Y=< <SIN<D/<3-D/64) ) > *< 22-D* . 3) ) +24 

#7-295 FOR T=l TO 2 

350 ON T GOSUB 680,700 
440 QH T GOSUB 680,700 
705 NEXT T 

683 CALL CHAR(136,"000000FFFF-) 

684 CALL COLOR < 14,7,1) 

685 CALL HCHAR < 1 3 , 1 , 1 36 , 32) 
720 Y=SIN<D/4)*20+24 

740 Y=COS(<D+6)/4)*10+24 
750 RETURN 
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Circle: This routine is written in a way to allow the numberof circles and the radius of each to 
be controlled by the values in line 320. The format of line 320 is: FOR T=A TO B STEP C. 
Where A=The radius of the inner circle, B=the radius of the outer circle, and C=the increments 
between these circles and the number of circles generated by the program. Change these 
values and observe the effect. 



100 REM 

110 REM * CIRCLE PLOT » 
120 REM * TI BASIC * 
130 REM * BY TOM BANCHY * 
140 REM * CINCINNATI , OHIO * 
150 REM * COPYRIGHT 1983 * 
160 REM ******************* 
170 REM **INITIALI2ATI0N** 
180 CALL CLEAR 
190 CALL SCREEN<2) 
200 CALL COLOR( 13,7,2) 
210 CALL COLOR( 14,7,2) 
220 CALL CHAR< 128, "C0C0C0C0" 
) 

230 CALL CHAR< 129, "0-3000000C 
0C0C0C0" ) 

240 CALL CHARC 130 , "0C0C0C0C" 
) 

250 CALL CHAR< 131 , "000000000 
C0C0C0C") 

260 CALL CHAR< 132, "CCCCCCCC" 
) 

270 CALL CHAR<133,"00000000C 
CCCCCCC ) 

280 CALL CHAR< 134, "C0C0C0C00 
C0C0C0C«) 

290 CALL CHAR<135,"0C0C0C0CC 

0C0C0C0") 

300 CALL CHAR<136,''000000FFF 

F000000'') 

310 REM **MAIN LOOP** 

320 FOR T=2 TO 20 STEP 6 

330 FOR 6=1 TO 2 

340 FOR X=<32-T)T0 <32+T)STE 

P 2 

350 XC=INT<X/2)+l 
360 XA=X 
370 XB=X+1 

380 IF XB<33+T THEN 400 
390 XB=XA 
400 D=XA 

410 ON G GOSUB 840,860 

420 P=48-INT<Y) 

430 IF P/2=INT(P/2)THEN 470 

440 P0R=INT<P/2)+l 

450 C^^R=129 

460 GOTO 490 



470 P0R=(P/2)+l 
480 CHAR=128 
490 D=XB 

500 ON G GOSUB 840,860 

510 P=48-INT<Y) 

520 IF P/2=INT(P/2)THEN 560 

530 P0T=INT<P/2)+l 

540 CHAG=131 

550 GOTO 580 

560 P0T=(P/2)+l 

570 CHAG=130 

580 IF POR=POT THEN 650 

590 XC=INT(X/2)+l 

600 IF <P0R>24)+<P0R<1 )<0 TH 

EN 620 

610 CALL HCHAR(POR,XC,CHAR) 
620 IF (P0T>24)+<P0T<1 )<0 TH 
EN 790 

630 CALL HCHAR<POT,XC,CHAG) 
640 GOTO 790 

650 IF CHAR=129 THEN 710 
660 IF CHAG=131 THEN 690 
670 CHAT=132 
680 GOTO 750 
690 CHAT=134 
700 GOTO 750 

710 IF CHAG=131 THEN 740 
720 CHAT=135 
730 GOTO 750 
740 CHAT=133 

750 IF <P0R>24)+<P0R<1 )<0 TH 
EN 790 

760 IF XAOXB THEN 780 
770 CHAT=CHAR 

780 CALL HCHAR<POR,XC,CHAT) 
790 NEXT X 
800 NEXT G 
810 NEXT T 

820 CALL HCHAR< 13,1 ,136,32) 
830 GOTO 830 

840 Y=<<(T'^2)-(ABS(<D-32)'^2) 

))'^.5)+25 

850 RETUI^ 

860 Y=-l*<<<T'^2)-<ABS(<D-32) 

^2)))^.5)+22 

870 RETURN 
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TOE/TAC/TIC 



A slightly modified version of an age old game of strategy. Unique variations have been added to 
accommodate a not-so-smart computer. A pretty tricky ticky! 



100 REM **************** 
110 REM * TOE-TAC-TIC * 
120 REM * TI BASIC * 
130 REM *BY BOB WARTM^^W* 
140 REM *PARK HILLS,KY.* 
150 REM *COPYRIGHT 1983* 
160 REM **************** 
170 CALL CLEAR 
180 REM **INITIALIZATION** 
190 CALL C0L0R<2,11 ,11) 
200 CALL C0L0R<4,2,13) 
210 FOR C=9 TO 12 
220 CALL C0L0R(C,2,11) 
230 NEXT C 

240 CALL COLORC 14,7,7) 

250 CALL COLOR< 15,2,2) 

260 CALL C0L0R(16,16,16) 

270 CALL SCREEN<13) 

280 NL*=",,,,,,, no,,,, loser, 

a 

9 9 9 

290 NW*=" ,,,,,, ,no, ,, ,wi nner 

n 

9 9 9 

300 PA*=»TO PLAY AGAIN PRESS 

'ENTER'" 
310 UW*=^ , ,you ,are , the ,wi nne 

^9 9^ 

320 CALL CHAR<58,''181818FFFF 
181818") 

330 CALL CHAR<59," 1818181818 
181818") 

340 CALL CHAR<60,"000000FFFF 

") 

350 RANDOMIZE 

360 CALL CLEAR 

370 PRINT TAB<9);"T0E TAC TI 

C" :::::::::: : 

380 FOR DELAY=1 TO 300 

390 NEXT DELAY 

400 REM **SELECT OPPONENT** 

410 CALL CLEAR 

420 TC<1)=1 

430 PRINT " SELECT AN OP 

PCNENT" : : : : 

440 PRINT TAB<9);"1 HUMi^tfvJ" : : 
TAB<9);"2 COMPUTER" : :TAB< 9) ; 
"3 COMPXCOMP" : : : 
450 INPUT OP 

460 IF <0P<1)+<0P>3)=-1 THEN 
450 



470 CALL CLEAR 
480 ON OP GOTO 620,490,540 
490 PRINT " SELECT THE TYPE 
CCffiPUTER" : : " YOU WOULD LI 
KE TO PLAY" : : : : 
500 PRINT TAB<9);"1 NAIVE";: 
TAB<9);"2 COmiVING" : : : 
510 INPUT TC<2) 
520 IF <TC<2)<1)+<TC<2)>2)=- 
1 THEN 510 
530 GOTO 620 
540 N^"'X'" 
550 FOR N=l TO 2 
560 PRINT "SELECT COIPUTERtt" 
;N;N«: : 

570 PRINT TAB<9);"1 NAIVE":: 

TAB<9);"2 COmiVING" : : : 

580 INPUT TC(N) 

590 IF <TC<N)<1)+<TC(N)>2)=- 

1 THEN 580 

600 N*="'0'" 

610 NEXT N 

620 REM **GAME BOARD** 
630 CALL CLEAR 
640 RESTORE 

650 PRINT " PRESS '0" TO 

RESTART" 
660 CALL HCHAR<8,7,60,20) 
670 CALL HCHAR< 15,7,60,20) 
680 CALL VCHAR( 2, 13,59,20) 
690 CALL VCHAR<2,20,59,20) 
700 FOR 1=1 TO 13 
710 READ R,C,CC 
720 CALL HCHAR<R,C,CC) 
730 NEXT I 

740 DATA 8,13,58,8,20,58,15, 

13,58,15,20,58,5,10,49,5,17, 

50,5,24,51 ,12,10,52 

750 DATA 12,17,53,12,24,54,1 

9 , 1 , 55 , 1 9 , 1 7 , 56 , 1 9 , 24 , 57 

760 REM **WHOSE TURN?** 

770 READ Z* 

780 IF Z*="X" THEN 840 
790 DATA "X" ,"0" 
800 REM **RANDOM PICK** 
810 IF 0P=1 THEN 840 
820 K=INT<RND*9)+49 
830 GOTO 890 



848 REM **SMART PICK** 

859 CALL KEY<e,K,S) 

868 IF K=48 THEN 368 

878 IF 0P=3 THEN 828 

888 IF <K>57)+(S=8)=-1 THEN 

858 

898 K=(K-46)/3 
988 Q=<INT<K))*7-4 
918 QQ=<K-INT<K) )*21+8 
928 REM **IF OCCUPIED** 
938 CALL GCI^R<Q,QQ, JJ) 
948 IF JJ=32 THEN 1828 
958 IF OPOl THEN 988 
968 CALL S0LWD<288,-3,1) 
978 GOTO 848 
988 IF 2*=«X" THEN 1888 
998 IF TC<2)=1 THEN 828 ELSE 
1828 

1888 IF 0P=2 THEN 968 

1818 IF TC<1)=1 THEN 828 

1828 REM **WHITE SQUARE** 

1838 FOR N=l TO 6 

1848 CALL HCHAR(Q+N-2,QQ-1 ,1 

52,6) 

1858 NEXT N 

1868 IF Z*="X" THEN 1168 

1878 REM **DRAW "O"** 

1888 RESTORE 798 

1898 CALL SOUND( 18,888,1) 

1188 CALL HCHAR<Q,QQ, 144,4) 

1118 CALL 'v'CHAR(Q+l ,QQ, 144,2 

) 

1128 CALL 'v'CHAR<Q+l ,QQ+3,144 
,2) 

1138 CALL HCHAR<Q+3,QQ, 144,4 
) 

1148 IF 0P=1 THEN 1248 

1158 GOTO 1248 

1168 REM **DRAW "X"** 

1178 CALL SOUNDC 18, 988,1) 

1188 CALL HCHAR<Q,QQ,136> 

1198 CALL HCHAR(Q+1 ,QQ+1 , 136 

,2) 

1288 CALL HCHAR(Q+2,QQ+1 , 136 
,2) 

1218 CALL HCHAR<Q+3,QQ+3, 1 36 
) 

1228 CALL HCHAR(Q+3,QQ, 1 36) 
1238 CALL HCHAR(Q,QQ+3, 136) 
1248 REM ** IF 3-IN-ROW** 
1258 CALL GCHAR(5, 18 ,A) 
12<;>e CALL 6CHAR( 5 , 1 7 , B) 
1278 CALL GCHAR(5,24,C) 
1288 CALL GCHAR< 12, 18 ,D) 



1298 CALL GCHAR( 12, 17,E) 
1388 CALL 6CHAR< 12,24, F) 
1318 CALL 6CHAR<19,18,G) 
1328 CALL GCHAR<19,17,H) 
1338 CALL GCHAR(19,24,I) 
1348 IF 2*A=B+C THEN 1438 
1358 IF 2*D=E+F THEN 1468 
1368 IF 2*G=H+I THEN 1488 
1378 IF 2*A=D+G THEN 1538 
1388 IF 2*B=E+H THEN 1568 
1398 IF 2*C=F+I THEN 1588 
1488 IF 2*A=E+I THEN 1638 
1418 IF 2*G=E+C THEN 1688 
1428 IF A+B+C+D+E+F+G+H+K12 
24 THEN 768 ELSE 1738 
1438 REM **HORIZ. LINES** 
1448 R=5 
1458 GOTO 1498 
1468 R=12 
1478 GOTO 1498 
1488 R=19 

1498 FOR 1=1 TO 22 

1588 CALL HCHAR(R,I+5,ASC<SE 

G*<m*,I ,1))) 

1518 NEXT I 

1528 GOTO 1858 

1538 REM **VERT. LINES** 

1548 *^C=9 

1558 GOTO 1598 

1568 VC=16 

1578 GOTO 1598 

1588 VC=23 

1598 FOR 1=1 TO 22 

1688 CALL HChtf!»R<I ,'JC,ASC<SEG 

*(WM*,I ,1))) 

1618 NEXT I 

1628 GOTO 1858 

1638 REM **DIAG. LINE DN** 

1648 FOR 1=1 TO 22 

1658 CALL HCHAR< I , I+5,ASC<SE 

G*<um, I , 1 ) ) ) 

1668 NEXT I 

1678 GOTO 1858 

1688 REM **DIAG. LINE UP** 

1690 FOR 1=1 TO 22 

1700 CALL HCHAR(23-I , I+5,ASC 

<SEG*CWM*, I , 1 ) ) ) 

1710 NEXT I 

1720 GOTO 1850 

1730 REM **N0 WINNER** 

1740 FOR 1=1 TO 22 

1750 CALL HCHAR< I , I+5,ASC(SE 

G*(NUI* ,1,1))) 

1760 NEXT I 
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1779 FOR 1=1 TO 22 

1780 CALL HCHAR( 23-1 ,1+5, ASC 
<SEG*<NL*,I ,!)>> 

1790 NEXT I 

1800 FOR 1=1 TO 5 

1810 CALL SOUND<20,-3,1> 

1820 CALL SOUND (20,-5,1) 

1830 NEXT T 

1840 GOTO 1900 

1850 REM **PLAY AGAIN?** 



I860 FOR 1=1 TO 5 

1870 CALL SOUNDd 0,900,1) 

1880 CALL SOUNDCl 0,800,1) 

1890 NEXT I 

1900 FOR 1=1 TO 27 

1910 CALL HCHAR<23,I+3,ASC<S 

EG*<PA*,I ,1))) 

1920 NEXT I 

1930 CALL KEY<3,K,S) 

1940 IF K=13 THEN 630 ELSE 1 

930 



LOAN CALCULATING PROGRAM 

An extremely valuable program whenever you are considering a purchase that will involve financing and 
payments. At your choice it will calculate A) amount of payment B) amount of loan C) duration of loan. If you 
have a printer, it will even save the information for future reference. 



100 REM****************** 
110 REM*LOAN CALCULATION* 
120 REM* EXTENDED BASIC * 
130 REM* BY MARK E COWAN* 
140 REM* CENTERVILLE,OH.* 
150 REM*COPYRIGHTED 1983* 
160 REM****************** 
170 REM**''LOAN 1.0'** 
180 DIM PAR<5) 
190 DIM P*<3) 
200 CALL CLEAR 

210 PRINT "********LOAN PROG 
RAM********" : : : : : 
220 PRINT "WOULD YOU LIKE TO 
RECE I 'v'E " : " I NSTRUCT I ONS < Y/N 
)" 

230 INPUT Q* 

240 IF Q*="Y" THEN 250 ELSE 
270 

250 GOSUB 1470 
260 CALL CLEAR 

270 PRINT "SELECT THE OUTPUT 
DEVICE" : 0=SCREEN" : " 1 
=PR INTER" 
280 INPUT PR 
290 IF PR=0 THEN 310 
300 OPEN #1 ! "PIO" 
310 CALL CLEAR 
320 DATA AMOUNT OF EACH PAYM 
ENT, AMOUNT OF LOAN , DURATI ON 
OF LOAN 

330 RESTORE 320 
340 FOR 1=1 TO 3 
350 READ P*<I) 
360 PRINT I ;P*<I) : : 
370 NEXT I 



380 PRINT " : "WHICH PARAM 

ETER IS UNKNOWN?" 
390 INPUT UNP 

400 IF (UNP<1 )+<UNP>3)THEN 3 
80 

410 CALL CLEAR 

420 IF UNP=1 THEN 460 

430 PRINT "AMOUNT OF EACH PA 

YMENT?" 

440 INPUT PAR<1) 

450 IF PAR(1)=0 THEN 430 

460 IF UNP=2 THEN 500 

470 PRINT "AMOUNT OF LOAN?" 

480 INPUT PAR(2) 

490 IF PAR<2)=0 THEN 470 

500 IF UNP=3 THEN 540 

510 PRINT " "-."DURATION OF L 

OAN" : 

520 INPUT "(YEAR, MONTH)? ":P 
AR(3) ,PAR(4) 

530 IF (PAR(3)=0)*(PAR(4)=0) 
THEN 510 

540 PRINT " ": "ANNUAL INTERE 

ST RATE (/.)?" 

550 INPUT PAR(5) 

560 IF PAR(5)=0 THEN 540 

570 PRINT " ": "NUMBER OF PAY 

MENTS" : 

580 INPUT "IN A YEAR? " :PAYP 
ERYR 

590 IF PAYPERYR=0 THEN 570 

600 CALL CLEAR 

610 IF UNP=1 THEN 660 

620 )(X=PAR(1) 

630 GOSUB 1580 

640 PAR(1)=)(X 
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658 PRINT "MONTHLY PAYMENT: 

*";PAR<1): : 

660 IF UNP=2 THEN 718 

670 XX=PAR<2) 

680 60SUB 1580 

690 PAR(2)=XX 

700 PRINT "AMOIMT OF L0<!^: * 
";PAR<2): : 
710 IF UNP=3 THEN 730 
720 PRINT "DURATION OF LO^s 
" ;PAR<3) ;''YEAR" : " 
- ;PAR<4) j-MONTH" : : 
730 PRINT "^WJUAL INTEREST R 
ATE:" ,-PAR<5) ;"X" : : 
740 PRINT "PAYMENTS IN A YEA 
R : " ; PAYPERYR : : : 
750 PRINT P*<UNP):" — TO BE C 
ALCULATED — " : : 
760 INPUT "IS THIS CORRECT < 
Y/N)?" :A* 

770 IF A*="N" THEN 298 
780 PAR<5)=PAR(5)/100 
790 PAR<5)=PAR< 5) /PAYPERYR 
800 IF UNP=3 THEN 870 
810 Y=0 

820 X=PAR(4>/12»PARPERYR 
830 FRACT=X-INT<X) 
840 IF FRACT=0 THEN 860 
850 Y=l 

860 N0-PER=PAR(3)*PAYPERYR+I 
NT< PAR< 4)/l 2*PAYPERYR) +Y 
870 ON UNP GOTO 880,900,920 
880 PAR<1)=PAR<2)*PAR<5)«(1+ 
PAR(5) )'^NO_PER/( ( 1+PAR<5) )^N 
0_PER-1 > 
890 GOTO 930 

900 PAR<2)=PAR< 1 )«( ( 1+PAR<5) 
) -^NO-PER-l )/< 1 +PAR< 5) ) ^NO_PE 
R/PAR<5) 
910 GOTO 930 

920 N0_PER=INT<-L0G(1-PAR(2) 
*PAR<5)/PAR< 1 ) >/LOG< 1+PAR<5) 
)> + l 

930 CALL CLEAR 
940 XX=PAR(2) 
950 GOSUB 1580 
960 PAR<2>=XX 

970 PRINT #PR:"AMOl^T OF LOA 
N: *" ;PAR(2) : : 
980 PRINT #PR: "ANNUAL INTERE 
ST RATE : " ; PAR < 5 ) *PAYPERYR* 1 
0;"X": : 

990 PRINT ttPR: "DURATION OF L 
OAN : " : " " ; NO_PER ; " PAYMENT P 
ERIODS" 



1000 PRINT #PR:" <";NO_PER/ 
PAYPERYR ; "YEARS) " : : 
1010 XX=PARC1> 
1020 GOSUB 1580 
1030 PAR(1)=XX 

1040 PRINT ttPR:"AMOmT OF EA 
CH PAYMENT:":" *";PAR<1): 

1050 PRINT ttPR: "NUMBER OF PA 
YMENTS" : " PER YEAR : " ; PAYPERY 
R: : : 

1060 IF PR=0 THEN 1100 
1070 CALL CLEAR 
1080 PRINT "PRINTING PAYMENT 
SCHEDUAL" ::::::::: 

• 

1098 PRINT #1:"PAYMENT tt P 

AYMENT PRINCIPLE INT 

EREST UNPAID BALANCE" 

1188 X=PAR<2) 

1118 PAYED=e 

1128 C0UNT=8 

1138 IF PR=1 THEN 1158 

1148 PRINT "^CALCULATING COS 

T OF LOAN*" 

1158 FOR 1=1 TO NO_PER 
1168 INRT=PAR<5)*X 
1178 Y=PAR(1>-INRT 
1188 IF Y<=X THEN 1248 
1198 Y=X 

1288 PAR<1)=Y+INRT 

1218 XX=PAR<1) 

1228 GOSUB 1588 

1238 PAR<1)=XX 

1248 X=X-Y 

1258 XX=Y 

1268 GOSUB 1588 

1278 Y=XX 

1288 XX=X 

1298 GOSUB 1588 

1388 X=XX 

1318 XX=INRT 

1328 GOSUB 1588 

1338 INRT=XX 

1348 IF PR=8 THEN 1368 

1358 PRINT ttl:" ";I;TAB(12); 

PAR<1) ;TAB<24> ;Y;TAB<38) ;INR 

T;TAB<52) ;X 

1368 PAYED=PAYED+PAR<1) 
1378 NEXT I 

1388 IF PR=8 THEN 1488 
1398 PRINT #PR:" " : : : : 
1488 PRINT #PR: "TOTAL PAYMEN 
TS=" ; PAYED: "COST OF LOAN=" ;P 
AYED-PAR<2): : 



TT 



1418 IF PR=e THEN 1439 

1429 CLOSE #1 

1430 PRINT "WOULD YOU LIKE T 

RIM": "THIS PROGRAM AGAIN < 
Y/N)" 

1448 INPUT 

1458 IF Q*=''Y" THEN 278 
1468 END 

1478 REM SUB TO OUTPUT INSTR 
UCTIONS 

1488 CALL CLEAR 

1498 PRINT "This program wM 

1 cal cu 1 ate" s " 1 out of a pos 
si bl e" 

1588 PRINT "3 unknown parame 
ters." 

1518 PRINT "You will have to 
enter" s"the 2 known variabl 
es" ! " i n the 1 oan . " : : 



1528 PRINT "I-f you have a pr 
i n ter , " : " the computer will p 
r int" 

1538 PRINT "a payment schedu 
al •for":"the entire loan per 
i od . " : 

1548 PRINT " :" PRESS "ENT 
ER' TO CONTINUE" 
1558 CALL KEY<8,KEY,ST> 
1568 IF ST=8 THEN 1558 
1578 RETURN 

1588 REM SUB TO ROLWD PARAME 

TERS TO NEAREST CENTS 

1598 IF XX=e THEN 1648 

1688 YY=INT<XX*188) 

1618 IF <XX*188-YY)<.5 THEN 

1638 

1628 YY=YY+1 
1638 XX=YY/188 
1648 RETURN 



KEYBOARD TEACHER 1 

This program is designed to teach you how to touch type. As you touch a l<ey, the computer calls it off to you, 
but it does not appear on the screen. If you practice, and don't look at the keys, soon you'll be touch typing! 
Great for people just learning to type or as a refresher course. 



188 


REM 


378 


A*(11)=="UP AIRROJ" 


118 


REM » KEYBOARD » 


388 


A*< 13)=" ENTER" 


128 


REM » TEACHER #1 * 


398 


A*<33)="EX CLA WiTIOJ PO 


138 


REM « TI BASIC « 


INT 


H 


148 


REM * TE 2 W/SPEECH » 


488 


A*< 34)=" QUOTE" 


158 


REM » BY ED YORK » 


418 


A*<35) = "NLtiBER" 


168 


REM »WEST CHESTER, OH* 


428 


A*<39)="AP0STR0 PHE" 


178 


REM » COPYRIGHT 1983 « 


438 


A*<43)="PLUS" 


188 


REM 


448 


A*<44) = "C(W1A" 


198 


CALL CLEAR 


458 


A*<45)="MINE US" 


288 


CALL SCREEN<5> 


468 


A*<46)="PERI0D" 


218 


DIM A*(126) 


478 


A*<58)="C0LE ON" 


228 


GOSUB 668 


488 


A*<59)="SEMI COLE C^" 


238 


PRINT " KEYBOARD TEA 


498 


A* < 68)= "LESS TH<arfvJ" 




588 


A*< 62)=" GREATER TIWl" 


248 


GOSUB 718 


518 


A*< 63)=" QUESTION MARK" 


258 


REM **OPEN TO SPEECH** 


528 


A*<91)="0PEN BRACK ET" 


268 


OPEN ttl s" SPEECH" , OUTPUT 


538 


A*< 92)=" REVERSE SLANT" 


278 


PRINT #1 :"//43 128" 


548 


A*< 93)=" CLOSE BRACK ET" 


288 


GOSUB 768 


558 


94)=" CARET" 


298 


CALL KEY(8,A,B) 


568 


A*<95) = "mDER LINE" 


388 


IF A013 THEN 298 


578 


A*< 96)=" GRAVE" 


318 


CALL CLEAR 


588 


A*< 123)=" LEFT -^BRACE" 


328 


CALL KEY<8,C,D) 


598 


A*< 125)=" RIGHT ^^BRACE" 


338 


IF D<1 THEN 328 


688 


A*<126)="TIL DE" 


348 


A*<8)="LEFT AIRRCW" 


618 


REM **SAY RESPCB^SE** 


358 


A^(9)=''RIGHT AIRRCW" 


628 


PRINT #1 :CHR*<C) 


368 


A*<18)="DCMaW AIRROUI" 


638 


PRINT #1 :A*<C) 
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640 GOTO 320 

650 CLOSE #1 

660 REM **D1 SAPPEAR** 

670 FOR F=l TO 8 

680 CALL COLOR <F, 5, 5) 

690 NEXT F 

700 RETURN 

710 REM **APPEAR** 

720 FOR F=l TO 8 

730 CALL COLOR(F, 16,5) 

740 NEXT F 

750 RETURN 

760 REM INSTRUCT IONS** 
770 PRINT #1:" HELLO; I AM KE 
YBOARD TEACHER ONE" 
780 PRINT ttl:"DO YOU WANT TO 

HEAR THE INSTRUCTI a^4S?" 
790 PRINT #1:" PLEASE PRESS Y 

FOR YES; OR N FOR NO" 



y0 CALL KEY(0,6,H) 

810 IF H<1 THEN 800 

920 IF G=89 THEN 860 

830 IF G078 THEN 800 

840 PRINT #l:"'^<v'ERY WELL!;NO 

Ul PRESS THE ENTER KEY AND WE 

WILL >BEGIN." 
850 RETURN 

860 PRINT #1:"THIS PRO GRAM 

WAS DESIGNED TO REPEAT EACH 

KEY AS IT IS PRESSED." 

870 PRINT «1:"THE PURPUS OF 

THIS PRO GRAM IS TO TEACH YO 

U TO TOUCH TYPE" 

880 PRINT #1 : "PROVIDING YOU 

DO NOT CHEAT ! " 

890 PRINT ttl: "PRESS THE ENTE 
R KEY AND WE WILL >BEGIN! " 
900 RETURN 



KEYBOARD TEACHER 2 

This version will print letters on the screen as well as calling the letter off to you as you type them in. You can 
write a sentence or message, then press enter and the computer will read it back to you. Requires TE2 and 
Speech Synthesizer. 



100 


REM ****************** 


370 


REM **ADD TO STRING** 


110 


REM * KEYBOARD * 


380 


A*=A*&CHR*<C) 


120 


REM * TEACHER #2 * 


390 


IF CO 13 THEN 450 


130 


REM * Tl BASIC * 


400 


REM **REPEAT STRING** 


140 


REM * TE-2 W/SPEECH * 


410 


PRINT #1 :A* 


150 


REM * BY ED YORK * 


420 


REM **CLEAR STRING** 


160 


REM *WEST CHESTER, OH* 


430 


A*=" " 


170 


REM * COPYRIGHT 1983 * 


440 


CALL CLEAR 


180 


REM ****************** 


450 


GOTO 310 


190 


CALL CLEAR 


460 


CLOSE ttl 


200 


CALL SCREEN<5) 


470 


REM **DISAPPEAR** 


210 


GOSUB 470 


480 


FOR F=l TO 8 


220 


PRINT " KEYBOARD TEAC 


490 


CALL C0L0R<F,5,5) 


HER 




500 


NEXT F 


230 


GOSUB 520 


510 


RETURN 


240 


REM »«OPEN TO SPEECH** 


520 


REM **APPEAR** 


250 


OPEN #1 : "SPEECH" , OUTPUT 


530 


FOR F=l TO 8 


260 


PRINT #1 : "//43 128" 


540 


CALL COLOR(F, 16,5) 
NEXT F 


270 


GOSUB 580 


550 


280 


CALL KEY<0,A,B) 


560 


RETURN 


290 


IF AO 13 THEN 280 


570 


REM ** INSTRUCT IONS** 


300 


CALL CLEAR 


580 


PRINT #1: "HELLO; I AM KE 


310 


CALL KEY(0,C,D) 


YBOARD TEACHER TWO" 


320 


IF D<1 THEN 310 


590 


PRINT #1:"D0 YOU WANT TO 


330 


REM **SAY RESPONSE** 


HEAR THE INSTRUCTIONS?" 


340 


PRINT #1 :CHR*(C) 


600 


PRINT **1:" PLEASE PRESS Y 


350 


REM **PRINT RESPONSE** 


FOR YES; OR N FOR NO" 


360 


PRINT CHR*(C) ; 


610 


CALL KEY<0,G,H) 



79 



628 IF H<1 THEN 610 

630 IF G=89 THEN 670 

640 IF G078 THEN 610 

650 PRINT #1:'"^UERY WELL!;NO 

W PRESS THE ENTER KEY AND WE 

WILL >BEGIN." 
660 RETURN 

670 PRINT ttlr^'THIS PRO GRAM 
WAS DESIGNED TO ALLOW YOU TO 

TIPE A LETTER;" 
680 PRINT #1:"W0RD OR SENTEN 
CE AND TELL YOU EACH" 
690 PRINT #1:"LETTER AS IT I 
S TIPED." 



700 PRINT ttl:"YOU MAY THEN P 
RESS THE ENTER KEY" 
710 PRINT #1:" AND I WILL RE 
AD THE ENTIRE MESSAGE BACK T 
YOU." 

720 PRINT *tl:"THE PURPUS OF 

THIS PRO GRAM IS TO" 

730 PRINT ttl: "ALLOW YOU TO P 

RACTICE TOUCH TIPINQ LETTERS 

, WORDS OR SENTENCES." 

740 PRINT #1: "PRESS THE ENTE 

R KEY AND WE WILL >BE6IN!" 

750 RETURN 



MARTIAN PROBE 

Your ability to control and safely land the Lunar Lander is put to a severe test in this game that has 36 
variations. With a dwindling fuel supply to contend with, time is of the essence. Complete as many safe 
landings as possible and build up your score, Forward your higti score to NASA, They're always looking for 
more good Compunauts! Joysticks optional- 



100 REM 

110 REM * MARTIAN PROBE * %. 
120 REM * EXTENDED BASjtC *^ 
130 REM * BY TOM BANCHYr i 
140 REM ^CINCINNATI, OHi&W S 
150 REM * COPYRIGHT 1 9a^C:>^ ^ 
160 REM 

170 REM **INITIALI2ATI0N**^^^^^^^ ... 
180 RANDOMIZE :: CALL MAGNIF 
Y<3):: CALL CHAR< 1 26 , RPT*( " 8 
F",8)) 

190 CALL CHAR< 122, "00001 83.£i3. 
C3C7EFF ",123, "0000000000 4266 
FF") 

200 CALL CHAR ( 124, "000 000|aii0 
0183CFF" , 125,RPT*( "F" ,16>) 
210 CALL CHAR< 128, "071F3F7F7 
8F0F8FFFFFFFFFF1 83C7EFE;E0F8F 
CFEl E0F1 FFFFFFFFFFFl 8307 
E7F"> 

220 REM ** INSTRUCT I ON** 
230 DISPLAY AT<1,8)ERASE ALL 
: "MARTIAN PROBE" :: FOR T=l 
TO 200 : : NEXT T 
240 D I SPLAY AT < 3 , 1 ) : " THE OB J 
ECT OF "MARTIAN PROBE" 
IS TO GUIDE YOUR" / 
250 DISPLAY AT<5,l)r"^S^^ C 
APSULE SAFELY FROM THE TOP 

OF THE SCREEN TO " 
260 DISPLAY AT<7,1):"THE BOT 
TOM OF THE TRENCH BELOW. 
THIS IS ACCOMPLISHED" 



?/70 DI SPLAY AT( 9 , 1 ) : " BY MANE 
.....J^ THE CAPSULE WITH TH 

^€ \<RieHT> AND <LEFT>" 
, 280 6 1 SPLAY ATU 1 , 1 ) : "ARROWS 
. &Q4( THE RIGHT AND LEFTARROWS 

^Ji^PLY GUIDE THE" 
,, 290 i t) I SPLAY AT( 1 3 , 1 ) : " CAPSUL 
::...E INTO THE TRENCH WHILE 
THE "Q" KEY ENGAGES " 
300 DISPLAY AT< 15,1 >: "THE SH 
XIP'S THRUST, SLOWING THE DE 
, SCENT OF THE CAPSULE," 

DISPLAY AT<17,1) :"BUT AT 
THE SAME TIME USING THE SM 
i=iLli AMOUNT OF FUEL ON" 
32t, DI SPLAY AT< 1 9 , 1 ) : " BOARD . 

YOU, THE PLAYER, MUSTGUIDE 
THE SHIP TO SAFETY AS" 
330 DISPLAY AT<21 ,1) :"MANY T 
nME5 AS POSSIBLE BE- FORE C 
CRASHING DUE TO LOSS " 
1340 DISPLAY ATC23,1):"0F FUE 
iL OR FAULTY PILOTING. *PRESS 
\ ,ANY KEY TO CONTINUE*" 
) 350 CALL KEY < , K , S > : : IF S=0 
\ THENx 350 

360 DISPLAY AT (1,1) ERASE ALL 
:HY0UR tHANCES OF SURUIW^iL A 
RE" 

370 DISPLAY AT( 2 , 1 ) : " DEPENDA 
NT ON YOUR PILOTING SKILLS 
AND 3 DIFFICULTY FAC-" 
380 DISPLAY AT<4,1) -."TORS TH 
AT YOU MUST CHOOSE" 
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390 DISPLAY AT<5,1) s-BEFORE 
BEGINNING. YOU HAVE THE OPT 
IGtA OF LANDING YOUR" 
400 DISPLAY AT( 7,1) CAPSULE 

IN WIND, TERRAIN, AND 1^ 
EU'v'ERABILITY CON-" 
410 DISPLAY AT<9,1) :«DITIONS 

RANGING FRm VERY EASY TO 
VERY DIFFICULT. THE" 
420 DISPLAY ATdl ,1) z-TRENCH 
, HOWEVER, REMAINS VERY N 
ARRCW ^D Chtf!»LLENGING" 
430 DISPLAY AT<13,1):»T0 LAN 
D IN, SO USE CAUTION. YOUR S 
CORE DEPENDS THE" 
440 DISPLAY AT<15,1) :"NmBER 

OF LANDINGS YOU Cm- PLETE 
SAFELY AND THE DIFFI-" 
450 DISPLAY AT<17,1) :"CULTY 
OF THE CC»^DITIONS THEYWERE M 
ADE mDER." 

460 DISPLAY ATCl?,!):- JOYS 
TICK & FIRE BUTTOJ C^ ALSO 
BE USED" 

470 DISPLAY AT<:23,1):" PRES 

S ANY KEY TO START" 

480 CALL KEY<0,K,S>:: IF S=0 

THEN 480 
490 CALL CLEAR :: FUEL=100 : 
: CALL SCREEN<2):: CALL COLO 
R(0,3,l) 

500 FOR T=l TO 11 :: CALL CO 
L0R<T,12,1) : : NEXT T :: CALL 

C0L0R<12,7,1) 
510 REM »*SET DIFFICULTY** 
520 DISPLAY AT<6,1) :"PLEASE 
INPUT WIND, TERRAIN, AND M^ 
EUVERABILITY DIFFI-" 
530 DISPLAY AT<8,1) :"CULTY L 
EVEL FROM 1 TO 12 <1 BEIN 
G EASIEST AND 12 HAR-DES 
T) ." 

540 DISPLAY AT(13,1) :"WIND" 

:: ACCEPT AT( 1 3 , 7) VALI DATE< D 

IGIT)SIZE<3)BEEP:D1 

550 IF DKl OR Dl>12 THEN 54 



560 IF DK4 THEN D=4 ELSE D= 
Dl 

570 SP=D/4 :: Q=< SP*3-SP*2)/ 
2+(SP*2> 

580 DISPLAY AT< 15,1 ): "TERRA! 
N" :: ACCEPT AT< 1 5 , 1 ) VALI DA 
TE<DIGIT)SIZE<3)BEEP:D2 



590 IF D2<1 OR D2>12 THEN 58 


600 DISPLAY AT(17,1) :"MANEUV 
ERABILITY" 

610 ACCEPT AT< 17, 18) VALI DATE 
<DIGIT)SIZE(3)BEEP:D3 :: IF 
D3<1 OR D3>12 THEN 600 
620 REM **PRINT SCREEN** 
630 DISPLAY AT< 1,1) ERASE ALL 
: "FUEL" ; FUEL: :" LADINGS": : 
"COMPLETED" ;L 

640 DISPLAY AT<4, 1 ) : "WIND" ;D 
1: : "TERRAIN" ;D2: z"MANEUV." 
;D3 

650 FOR T=<20-D2)TO 22 : : FO 
R TT=1 TO 19 STEP 18 :: CALL 

HCHAR(T,TT,125,15) 
660 NEXT TT :: CALL HCHAR<T, 
18,126) : : NEXT T 
670 CALL HCHAR<23,1 ,125,64) : 
: FOR F=l TO 2 : : FOR FF=122 

TO 124 

680 FOR FFF=2 TO 19 STEP 17 
:: CALL HCHAR< 1 9-D2 , FFF+ INT< 
RND*14) ,FF) 

690 NEXT FFF : : NEXT FF : : N 

EXT F : : X=2 : : Y=0 

700 CALL SPRITE(#1 ,128,5,5,1 

50+D3*7,X,Y) 

710 REM *MAIN CONTROL LOOP* 
720 CALL JOYSTd , JX, JY) ! : IF 
JX=0 THEN 740 :: K=(1+ABS<J 
X+1 ) )/2 : : GOSUB 890 
730 GOTO 750 

740 CALL KEY<1,K,S):: IF SO 
AND<K=2)+<K=3)+<K=18) <>0 T 
HEN GOSUB 890 

750 CALL MOTION<*H ,X,Y) : : CA 
LL P0SITI0N<#1 ,XX,YY) 
760 IF XX>=(137-D2*8)THEN GO 
SUB 790 

770 X=X+.3 :: Y=Y*.9 :: GOTO 
720 

780 REM **TEST FOR CRASHES** 

**AND LANDINGS** 
790 IF XX>159-.3*X THEN 850 
800 IF (YY>120)+<YY<126)=-2 
THEN RETURN 

810 CALL DELSPRITE(ttl ) : : CAL 
L CLEAR :: CALL SOUND(700,-6 

,0) 

820 SC=<XX*D1 )+<L*(5+Dl )*<5+ 
D2)*<5+D3) ) : : IF SOHI THEN 
HI=SC 
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838 DISPLAY AT< 1 2 , 1 ) : "YOUR S 
CORE IS- ;SC:''HIGH SCORE IS"; 
HI 

848 FOR T=l TO 1888 :: NEXT 
T L,X,Y=8 :: GOTO 498 
858 CALL MOTION<ttl ,8,8) ! : CA 
LL S0UND<788,888,8,881 ,8,882 
, 8 ) : : L=L+ 1 

868 DISPLAY AT(3,18>:L :! FO 
R T=l TO 588 : : NEXT T 



878 CALL DELSPRITE<#1) : : GOT 
638 

888 REM **SHIP MOV^EMENT** 

898 IF KOI 8 THEN 938 

988 IF X<1 OR FUEL<1 THEN RE 

TURN 

918 FUEL=FUEL-1 DISPLAY A 

T(l ,5) :FUEL 

928 X=X-1 .5 : : RETURN 

938 Y=Y+<SP*K-Q) : : RETURN 



SOUND EFFECTS CATALOG 



If you have ever programmed sounds & noises, you're familiar with the tedious trial and error method usually 
required to get exactly what you're lool<ing for. This program (already containing 6sound effects) will not only 
store up to 26 of your favorite routines, but it will also allow you to generate them individually, or in any 
sequence you desire. A storehouse of sounds for future reference! 



188 REM 

118 REM * SOWMD EFFECTS * 
128 REM * CATALOG * 
138 REM * TI BASIC » 
148 REM *BY BOB WARTM^^ * 
158 REM * PARK HILLS,KY.* 
168 REM » COPYRIGHT 1983« 
178 REM ***************** 
188 CALL CLEAR 
198 REM «*INITIALIZATION«* 
288 A^^" 88 88 88 88 88 88 88 88" 
218 AA*="88888888888888FF" 
228 AAA*=''FF" 

238 C*(l) = '' PRESS A LETTER 

FOR THE" 
248 C*<2)=" CORRESPONDING SO 
UND-EFFECT" 
258 CALL CHAR < 128, A*) 
268 CALL CHAR( 129,AA*) 
278 CALL CHAR(138,AAA*) 
288 L=65 

298 REM »*MAIN MENU** 

388 PRINT " SOUND-EFFECTS C 

ATALOG" ::::::::::::::::::::: 

318 FOR C=3 TO 19 STEP 16 

328 FOR 1=6 TO 18 

338 CALL HCHARd ,C-1 ,L) 

348 CALL HCHARC I ,C,41 ) 

358 READ B* 

368 FOR J=l TO LEN(B*) 

378 CALL HCHAR< I ,C+J,ASC<SEG 

*<B*,J,1))) 

388 NEXT J 

398 L=L+1 

488 NEXT I 

418 NEXT C 



428 CALL HCHAR<4,1 ,129,32) 
438 CALL VCHAR<5,17,128,15) 
448 CALL HCHARC 28,1 ,138,32) 
458 FOR N=l TO 2 
468 FOR 1=1 TO LEN(C*<N)) 
478 CALL HCHAR<28+N,I ,ASC<SE 
G*<C*<N) ,1 ,1))) 
488 NEXT I 
498 NEXT N 

588 REM **SELECT SOLWD** 

518 CALL KEY<8,K,S) 

528 IF S=8 THEN 518 

538 ON K-64 GOTO 558,628,788 

,798,868,1888,1888,1118, , , , , 

548 DATA WHI STLE-DtM^J , CRASH , 
FOOT STEPS, FLYING SAUCER, SIR 
EN, SPACESHIP, ENGINE IDLE 
, MOTORCYCLE ,,,,,,,,,,,,,,,,, 

558 REM **WHISTLE-DOUIN** 

568 F=3888 

578 FOR TO 38 

588 CALL S0UND<58,F,'v^) 

598 F=F-4e 

688 NEXT U 

610 GOTO 510 

620 REM *»CRASH** 

630 FOR V=l TO 28 STEP 3 

640 CALL SOUND( 130 ,-5,U> 

650 NE.XT U 

660 FOR V=29 TO 30 

670 CALL SOUNO(250 ,-5,^) 

680 NEXT V 

690 GOTO 510 

700 REM **FOCrr STEPS** 
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71 e FOR FS=1 TO le 
728 CALL S0LND<88,-6,8) 
738 CALL S0LWD<3e,-7,l) 
748 CALL S0UND<38,-7,1) 
758 FOR DELAY=1 TO 188 
768 NEXT DELAY 
778 NEXT FS 
788 GOTO 518 

798 REM *»FYING SAUCER** 

888 FOR FS=1 TO 18 

818 CALL SOLND< 168,-2,8) 

828 CALL S01MD(128,-2,1> 

838 CALL SOLWD< 128,-2,8) 

848 NEXT FS 

858 GOTO 518 

868 REM *»SIREN** 

878 FOR 1>=1 TO 3 

888 FOR T=645 TO 818 STEP 15 

898 CALL S0LWD<-28e,T,8,T+l , 

8,T+2,8) 

988 NE>rr T 

918 FOR T=825 TO 668 STEP -1 
5 

928 CALL S0l^D<-288,T,8,T+l , 

8,T+2,8) 

938 NEXT T 

948 NE>T U 

958 FOR T=l TO 3 

968 CALL S0l^D<588,488,8,481 

,0> 

978 CALL S0l>JD<588,5ie,8,511 
,8) 

988 NEXT T 



998 GOTO 518 

1888 REM »»SPACESHIP** 

1818 FOR 1=1 TO 8 

1828 CALL S0U^JD<-1588,68e,3, 

683,3,-4,15) 

1838 FOR Y=l TO 188 

1848 NEXT Y 

1858 CALL S0mD<-1588,688,8, 

682,8,683,8,-4,15) 

1868 NEXT I 

1878 GOTO 518 

1888 REM **ENGINE IDLE** 

1898 CALL S0UNDa88,411 ,38,3 

56,38,413,38,-4,8) 

1188 GOTO 518 

1118 REM **MOTORCYCLE** 

1128 CALL S0UND<3888,258,38, 

258,38,488,38,-4,8) 

1138 FOR U=l TO 688 

1148 NEXT U 

1158 FOR G=638 TO 518 STEP - 
48 

1168 FOR T=G TO G+388 STEP 1 
8 

1178 CALL S0U«4D<-588,258,38, 

258, 38, T, 38, -4, 8) 

1 188 FOR Y=l TO 2 

1198 NEXT Y 

1288 NEXT T 

1218 NEXT R 

1228 CALL S0UND<-4288,25e,38 

,258,38,828,38,-4,8) 

1238 GOTO 518 



HOUSEHOLD INVENTORY 

This program will keep a record of every item you have in your home. It will record it by item, serial # & 
manufacturer & model #, purchase cost & date. It will sort by room or item. Valuable for insurance purposes 
and for personal records. 



188 REM ***************** 
118 REM * HOUSEHOLD * 
128 REM * INV;ENT0RY * 
138 REM * TI BASIC * 
148 REM *BY BOB WARTMAN * 
158 REM * PARK HILLS,KY.* 
168 REM *COPYRIGHT 1983 * 
178 REM ***************** 
188 REM **INITIALIZATION** 
198 CALL SCREEN<13) 
288 DIM NA*<2e8) ,AD*<200) ,PH 
*(280) ,LN*<200) ,CS*(200) 
210 REM **MAIN MENU** 
228 CALL CLEAR 



238 PRINT " WWWWW*// 

//////// " 

240 PRINT " \ 

/ " 

250 PRINT " *HOUSEHOLD IN 

VENTORY*" 

260 PRINT " / 

\ " 

270 PRINT " ////////// *\\ 
\\\\\\\\ 

280 PRINT " YOUR OPTIONS AR 

E. . . 
■ • ■ 

290 PRINT " 1 -REVIEW THE L 
1ST":" 2-SEARCH FOR AN ITE 
M" 
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300 PRINT " 3-CHANGE LOCAT 
ION":- 4-ADD LISTINGS":" 

5-DELETE LISTINGS" 
310 PRINT " 6-ARRANGE BY R 
OOM":" 7-READ LIST FRC^ TA 
PE" 

320 PRINT " 8-WRITE LIST T 
TAPE":" 9-PRINT NAMES ON 

PRINTER" 
330 PRINT " 10 -TERM I NATE PR 
06RAM" : : 

340 INPUT " PICK ONE OPTICM^i 
" :0P 

350 CALL CLEAR 

360 IF <0P<1 )+(OP>10)=-l THE 
N 220 

370 m OP GOTO 390,550,700,8 
50 , 1 330 , 1 570 , 2060 , 2 1 60 , 2350 , 
2450 

380 REM **REVIEW LIST** 
390 NT=0 

400 FOR 1=1 TO N 

410 NT=NT+1 

420 GOSUB 2590 

430 IF I=N THEN 450 

440 IF NT<6 THEN 520 

450 PRINT " PRESS ^ ENTER' T 

CONJTINUE. " 

460 PRINT " PRESS ^X' TO EX 

IT REVIEW. " 

470 CALL KEY<0,K,S) 

480 IF K=88 THEN 220 

490 IF KOI 3 THEN 470 

500 CALL CLEAR 

510 NT=0 

520 NEXT I 

530 GOTO 220 

540 REM **SEARCH** 

550 CALL CLEAR 

560 INPUT "WHAT IS THE ITEM? 

" :NI* 
570 FOR 1=1 TO N 
580 IF IT*(I><>NI* THEN 670 
590 PRINT ::"IS THE ";NI*;" 
IN THE " ;RM*(I> ;"?" : : 
600 INPUT " <Y/N) " :X* 
610 IF X*="N" THEN 670 
620 GOSUB 2590 

630 PRINT "ANY MORE? (Y/N)": 

640 INPUT X* 

650 IF X*="Y" THEN 556 

660 GOTO 220 

670 NEXT I 

680 GOTO 228 



690 REM **CHANGE ROCtfi** 
700 CALL CLEAR 

710 INPUT "WHAT IS THE ITEM? 
: ":NI* 

720 FOR D=l TO N+1 

730 IF IT*<D)<>NI* THEN 820 

740 PRINT ::"IS THE ";NI*;" 

IN THE 9" ;RM*<D) ;"?":: 

750 INPUT "<Y/N> ":X* 

760 IF X*<>"Y" THEN 820 

770 CHD=D 

780 INPUT "WHICH ROOM CHANGE 

D TO?" :RM*<CHD> 

790 INPUT "f^Y MORE CHANGES? 

<Y/N) " :X* 

800 IF X*<>"N" THEN 700 
810 GOTO 220 
820 NEXT D 
830 GOTO 220 

840 REM **ADD LISTINGS** 
850 L=N+1 

860 FOR I=L TO 200 

870 PRINT " S^PLE ABBRE'v'IA 

TIONS" 

880 PRINT " 

":" BASEMENT BAS 

mT" 

890 PRINT " FAMILY ROOM 

FMLYRM" : " KITCHEN KI 

TCm" 

900 PRINT " LIVING ROC»i 

LUNGRM":" MASTER BEDR0C»«1-MB 
EDRM" : : 

910 PRINT " CLOCK/RADIO 

CLK/RD" : " COLOR/TV CL 

R/TV'^" 

920 PRINT " DISHWASHER 

DWASHR" : " FREEZER FR 

EEZR" 

930 PRINT " MICROWAVE OVEN- 

MW/OVN" : " REFRIGERATER RF 

RIGE" : : 

940 PRINT "/SPACEX" :"\LIMIT/ 

U . II I II 

: I 

950 INPUT "* <6) ITEM : 
" : IT*< I > 

960 IF LEN<IT*<I))<7 THEN 98 
VII- <,mj<</> *Vq<>V GOSUB 2 
510 

970 GOTO 950 

980 INPUT "* (6) ROOM : 
" :RM*( I ) 

990 IF LEN<RM*<I))<7 THEN 10 
20 
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leee gosub 251 8 

1818 GOTO 988 

1828 INPUT '•»<11> BRAND/MOD# 

1838 IF LEN(Wi*(I))<12 THEN 
1868 

1848 GOSUB 2518 
1858 GOTO 1828 
1868 INPUT "* <5) DATE 
:DA*<I) 

1878 IF LENCDA*<I))<6 THEN 1 
188 

1888 GOSUB 2518 

1898 GOTO 1868 

1188 INPUT "* <5) COST 

i" :CO*<I) 

1118 IF LEN<C0*(I)><6 THEN 1 
148 

1128 GOSUB 2518 
1138 GOTO 1188 
1148 INPUT "♦(ID SER# 
:SR*(I) 

1158 IF LEN<SR*(I))<12 THEN 
1188 

1168 GOSUB 2518 
1178 GOTO 1148 
1188 

1198 CALL CLEAR 

1288 PRINT "ENTRY #"51 

1218 PRINT ::»YOU HAVE ENTER 

ED:" : : 

1228 GOSUB 2598 
1238 N=N+1 

1248 INPUT "ANY MORE LISTING 

S? <Y/N) - 

1258 CALL CLEAR 

1268 IF X*=''N" THEN 1288 

1278 NEXT I 

1288 INPUT "RECORD DATA ON T 

APE? (Y/N) " sX* 

1298 CALL CLEAR 

1388 IF X*=''Y" THEN 2168 

1318 GOTO 228 

1328 REM **DELETE LISTINGS** 
1338 INPUT -WHAT IS THE ITEM 
? " :NI* 

1348 FOR 1=1 TO N 

1358 IF IT*<I)<>NI* THEN 158 

8 

1368 PRINT ::"IS THE ";NI*;« 

IN THE " ;RM*<n ;"?" : : 
1378 INPUT "(Y/N) " :X* 
1388 CALL CLEAR 
1398 LL=I 



1488 IF X^O-Y" THEN 1588 
1418 FOR E=LL TO N 
1428 IT*<E)=IT*<E+1 ) 
1438 rai*<E)=F»1*<E+l ) 
1448 DA*<E)=DA*<E+1 ) 
1458 C0^<E)=C0*<E+1 ) 
1468 BM*(E)=BM*<E+1) 
1478 SR*<E)=SR*<E+1 ) 
1488 NEXT E 
1498 N=N-1 
1588 NEXT I 

1518 PRINT s:«DELETION C01PL 

ETE - ANY MORE?" : : 

1528 INPUT "<Y/N) " :X* 

1538 CALL CLEAR 

1548 IF X*="Y" THEN 1338 

1558 GOTO 228 

1568 REM *»ARRANGE BY ROOM** 
1578 PRINT " ONE MOMENT 

PLEASE . " : ! : : : ! : s 
1588 FOR X=l TO N 
1598 A=X 

1688 RT=LEN<RM*<X)) 
1618 FOR T=X+1 TO N 
1628 B=T 

1638 IF RM*<X)=RM*<T)THEN 19 
18 

1648 FOR 1=1 TO RT 

1658 IF SEG*(RM*<X) ,1 ,I)<=SE 

G*(RM*(T) ,1 ,I)THEN 1678 

1668 GOSUB 1728 

1678 IF SEG*<RM*<X) ,1 ,I)<>SE 

G*<RM*(T) ,1 jDTHEN 1698 

1688 NEXT I 

1698 NEXT T 

1788 NEXT X 

1718 GOTO 228 

1728 Q*=rai*<A) 

1738 rai*<A)=RM*<B) 

1748 RM*<B)=Q* 

1758 Q*=IT*<A) 

1768 IT*<A)=IT*<B) 

1778 IT*<B)=Q* 

1788 Q*=DA*<A> 

1798 DA*<A)=DA*<B) 

1888 DA*<B)=Q* 

1818 Q^=CO*<A> 

1828 CO*<A>=CO*<B) 

1838 CO*<B)=G» 

1848 Q*=BM*(A) 

1858 BM*<A)=BM*<B) 

1868 »1*<B)=Q* 

1878 Q*=SR*<A) 

1888 SR^<X)=SR*<B) 
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1890 SR*<B)=Q* 
1900 RETURN 
1910 mT=x 

1920 FOR F=MNT TO mT+1 

1930 FT=LEN(IT*(F)) 

1940 FOR 1=1 TO FT 

1950 IF SEG*<IT*<F) ,1 ,I)>SEG 

*<IT*<F+1) ,1 jDTHEN 1990 

I960 IF SEG*(IT*<F) ,1 jDOSE 

6*(IT*(F+1) ,1 jDTHEN 2030 

1970 NEXT I 

1980 NEXT F 

1990 A=F 

2000 B=F+1 

2010 GOSUB 1720 

2020 GOTO 220 

2030 IF T=N THEN 1700 

2040 GOTO 1690 

2050 REM **READ FROtA TAPE** 

2060 GOSUB 2550 

2070 OPEN #1 :DN*, INTERNAL, IN 

PUT , FIXED 128 

2080 INPUT #1 :LT* 

2090 INPUT ttl :N 

2100 FOR 1=1 TO N 

2110 INPUT #1 :IT*<I) ,RM*<I> , 

DA*<I) ,CO*<I) ,BM*(I) ,SR*<I) 

2120 NEXT I 

2130 CLOSE #1 

2140 GOTO 220 

2150 REM **WRITE TO TAPE** 

2160 GOSUB 2550 

2170 INPUT -IS THIS A NEW LI 

ST? <Y/N) " :X* 

2180 IF X^O-Y" THEN 2210 

2190 PRINT ::"UIHAT IS THE TI 

TLE OF" : : 

2200 INPUT "YOUR LIST? " rLT* 

2210 OPEN #1 :DN*, SEQUENTIAL, 

INTERNAL, OUTPUT, FIXED 128 

2220 PRINT #1 :LT* 

2230 PRINT #1 :N 

2240 FOR 1=1 TO N 

2250 PRINT #1 :IT*<I) ,RM*<I) , 

DA*<I) ,CO*<I> ,RM*(I) ,SR*(I) 

2260 NEXT I 

2270 CLOSE #1 



2280 CALL CLEAR 

2290 PRINT •'THE LISTINGS ARE 

RECORDED." 
2300 PRINT " PRESS ^ ENTERS 

TO ccavrriNUE." 

2310 CALL KEY<0,K,S) 
2320 IF KOI 3 THEN 2310 
2330 GOTO 220 

2340 REM *PRINT ON PRINTER* 

2350 GOSUB 2550 

2360 OPEN #2 :DN*, OUTPUT 

2370 PRINT tt2:TAB<3) ;LT* 

2380 FOR 1=1 TO N 

2390 PRINT #2:IT*(I) 5TAB<10) 

;DA*<I ) ;TAB(18) ;BM*<I) 

2400 PRINT tt2:rai*<I) 5TAB<10) 

;CO*<I) ;TAB<18> ;SR*<I) 

2410 NEXT I 

2420 CLOSE #2 

2430 GOTO 220 

2440 REM **TERMINATim** 

2450 PRINT "DO YOU WISH TO T 

ERMINATE" : : 

2460 INPUT "THIS SESSI(>J? (Y 

/N) " :X* 

2470 CALL CLEAR 

2480 IF X*<>"Y" THEN 220 

2490 PRINT TAB<10) ;"GOOD BYE 



2500 STOP 

2510 PRINT "ENTRY IS TOO LON 

G-TRY AGAIN." 

2520 FOR DELAY=1 TO 100 

2530 NEXT DELAY 

2540 RETURN 

2550 PRINT "WHAT IS YOUR DBJ 
ICE NAME?" : : 

2560 INPUT " (CSl ,DSK1 ,RS232/ 
1 ,ETC.)" :DN* 

2570 IF DN*="" THEN 2560 
2580 RETURN 

2590 PRINT IT*(I) ;TAB<10) ;DA 

*<I) ;TAB<18) ;Ki*<I) 

2600 PRINT RM*<I) ;TAB<10> ;C0 

*<I) ;TAB<18) ;SR*<I) : : 

2610 RETURN 
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GEEN GAME 



A two player thought provoking word search game. Player 1 enters a word or message up to 20 spaces long. 
The Computer changes each letter a random number of letter's from the first letter, i.e. A to D.B to E.C to F etc. 
Player 2 then has two chances to guess the answer. If they guess one letter they should be able to calculate the 
other letters that comprise the scrambled message. Confused? It's really very simple. Once you play it, it will 
be a challenge to stump your opponent! 




188 
118 
128 
138 
148 
158 
168 
178 
188 
198 
288 
218 
228 
238 
248 
E" 
258 
AN 
AGE 
268 
TER 
278 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
CALL 

MES*='"' 

R<2tf^^D0MIZE 

X=INT<RND*25)+1 

REM ** INSTRUCT IONS** 

PRINT " GEEN 



******«*«««««««» 

* GEEN GAME * 

* TI BASIC * 

* BY DON BUSCH « 
♦CINCINNATI ,0H.* 
♦COPYRIGHT 1983* 
*******««««««««« 

♦INITIALIZATION* 
CLEAR 



G#W 



R LETTER 
LETTERS" 



PRINT "PLAYER ONE ENTERS 
UNSEEN MESSAGE. THE MESS 
IS THEN- 
PRINT "ENCODED. EACH LET 
IS" 

PRINT "CHANGED TO ^^OTHE 
A RANDOI NUMBER OF 



288 PRINT "FROM THAT LETTER. 

FOR" 
298 PRINT 
CHANGED TO 
E CHANGED" 
388 PRINT 
CHANGED TO 
CES REMAIN 
318 PRINT "SPACES. PLAYER TU 
THEN HAS" 
328 PRINT 
ESS THE 



"EXAMPLE: IF A IS 
E, THEN B WOULD B 

"TO F, Z WOULD BE 
C, AND SO m. SPA 



"TWO CHfe^CES TO GU 
ORIGINAL MESSAGE. 



"ENTER (^LY LETTER 
SPACES UP TO A TO 

"CHARACTERS. HIT " 
"ENTER" ;CHR*(34) ;" 



HIT ANY KEY T 



338 PRINT 
S AND 

TAL OF 28" 
348 PRINT 
;CHR*<34) ; 
WHEN" 

358 PRINT "MESSAGE IS FINISH 
ED." 

368 PRINT 
BEGIN" 

378 CALL KEY<8,K1 ,S1) 
IF Sl=8 THEN 378 
CALL CLEAR 
INPUT "PLAYER ONE: 
PRINT 

INPUT "PLAYER TW0:":N2* 
CALL CLEAR 

REM *INVISIBLE MESSAGE* 
PRINT Nl*;", ENTER MESSA 



388 
398 
488 
418 
428 
438 
448 
458 
GE» 
468 
478 

488 IF 
498 IF 
EN 538 
588 IF 



:N1$ 



CALL KEY<8,KM,SM) 
IF SM=8 THEN 468 
KM=13 THEN 568 
<KM>64)+<KM<91 )=-2 

KM=32 THEN 538 



TH 



518 PRINT "ILLEGAL CHARACTER 

n 

528 GOTO 468 

538 MES*=MES*&CHR*<KM) 

548 IF LEN<MES*)>=28 THEN 56 

8 

558 GOTO 468 

568 PRINT :: "MESSAGE ENTERED 
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578 REM »*ENCODE MESSAGE** 

580 FOR C=l TO LEN<MES*) 

590 D^SEG*<MES*,C,1) 

600 IF ASC<D*><>32 THEN 630 

610 E=32 

620 GOTO 660 

630 E=ASC<D*)+X 

640 IF E<91 THEN 660 

650 E=E-26 

660 Q«=Q^CHR$(E> 

670 NEXT C 

680 PRINT "THE CODED MESSAGE 

IS " ;Q«: : 
690 REM *»GUESS MESSAGE** 
700 PRINT N2*5"'S FIRST GUES 
S AT THE" : "MESSAGE" ; 
710 INPUT Gl* 
720 PRINT 

730 IF G1*=MES* THEN 880 
740 CALL SOmD< 1000,-3,0) 
750 PRINT "SORRY, '';N2*;", T 
HAT IS- INCORRECT. TRY AGAI 
N." : : 

760 PRINT N2*;"'S SECOND GUE 
SS AT THE" : "MESSAGE" ; 
770 INPUT G2* 



780 PRINT 

790 IF G2*=MES* THEN 880 
800 CALL SOmD< 1000,-3,0) 
810 PRINT "SORRY, ";N2*;", T 
HAT IS" :" INCORRECT. YOU LOSE 

n ■ . 

• . a 

820 PRINT -THE MESSAGE WAS - 
;MES* 

830 PRINT :" HIT ANY KEY TO 

PLAY AGAIN" 

840 CALL KEY<0,K1 ,S1) 

850 IF S1=0 THEN 840 

860 GOTO 180 

870 REM *VICTORY SEQUENCE* 
880 PRINT N2*;", YOU ARE ABS 
OLUTELY" !" CORRECT! ! ! YOU WIN 

I j I u 

890 FOR S=30 TO 1 STEP -1 
900 CALL SOUND<50,-7,S) 
910 NEXT S 

920 CALL SOlfvlD< 1000,-7,0) 
930 CALL SCREEN<2) 
940 FOR DELAY=1 TO 350 
950 NE>T DELAY 
960 CALL SCREEN<4) 
970 GOTO 830 



WORD CRAZE QC 

An educational word game for two players. The Computer randomly selects 1 letters and the players compile 
as many of their own original words as possible. The player with the most words wins. A sort of computerized 
Boggle. 



100 


REM ****************** 


310 


NEXT X 


110 


REM * WORD CRAZE * 


320 


FOR DELAY=1 TO 500 


120 


REM * TI BASIC * 


330 


NEXT DELAY 


130 


REM * PHIL TAYLOR * 


340 


CALL CLEAR 


140 


REM *H0LLAND,MICHIG^=#4* 


350 


INPUT "WANT INSTRUCTIONS 


150 


REM * COPYRIGHT 1983 * 


? <Y/N) " :Z* 


160 


REM ****************** 


360 


IF Z*="N" THEN 380 


170 


CALL CLEAR 


370 


GOSUB 1240 


180 


RANDC»iIZE 


380 


CALL CLEAR 


190 


CALL SCREEN<16) 


390 


INPUT -1ST PLAYER'S NAME 


200 


PRINT TAB<8) :-**WORD CRA 


? " 


:M*<1) 




400 


INPUT "2ND PLAYER'S h^E 


210 


DIM S<20) 


? - 


:M*<2) 


220 


FOR X=6 TO 1 STEP -1 


410 


CALL CLEAR 


230 


FOR N=l TO 12 


420 


PRINT TAB< 10) ; -PLEASE WA 


240 


CALL SOUND< 50, 262,0) 


IT" 




250 


CALL SOLffvlD< 50, 330,0) 


430 


FOR N=l TO 5 


260 


CN= I NT < RND*26 ) + 65 


440 


X=2^<1/12) 


270 


A=12-<X*SIN<N/6*3.14)) 


450 


FOR A=l TO 13 


280 


B=16-<X*C0S<N/6*3. 14) ) 


460 


CALL SOmD<100,110*X^A,0 


290 


CALL HCHAR(A,B,CN) 


) 




300 


NE>T N 


470 


NEXT A 
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480 NEXT N 

490 FOR H=l TO 2 

500 CALL CLEAR 

510 PRINT «YOUR TURN •';M*<H) 

■ ■ 

■ ■ 

520 RESTORE 

530 X=INT<RND*20)+1 

540 FOR Q=l TO X 

550 READ 0% 

560 NEXT Q 

570 PRINT Q*: : 

580 FOR DELAY=1 TO 400 

590 NEXT DELAY 

600 FOR C=l TO 15 

610 INPUT "WORD? "rZ* 

620 IF 2*="Z'' THEN 680 

630 IF Z*<<" '')THEN 660 

640 NEXT C 

650 GOTO 680 

660 60SUB 1000 

670 GOTO 610 

680 C=C-1 

690 PRINT -YOU FOUND '';C;^WO 
RDS " ;M*<H> 

700 INPUT -NUMBER OF CHALLEN 
GED WORDS? " : D 
710 E<H)=C-D 
720 CALL CLEAR 

730 PRINT "YOUR TOTAL IS " ;E 
<H) ; 

740 FOR DELAY=1 TO 500 

750 NEXT DELAY 

760 NEXT H 

770 CALL CLEAR 

780 PRINT M*<1):"Y0UR TOTAL 

WAS " ;E<1) : :M*<2) :"YOUR TOTA 

L WAS " ;E<2) : : s : 

790 IF E<1)>E<2)THEN 810 

800 IF E<2)>E(1)THEN 840 ELS 

E 870 

810 PRINT M*<1) 
820 PRINT " «**»********WINS» 
************* : : 
830 GOTO 920 
840 PRINT M*<2) 
850 PRINT " ****«*»**«»»WINS* 
: : : : 

860 GOTO 920 

870 PRINT " *»********»*TI E** 

880 PRINT TAB<9);"TIE BREAKE 
R! ! " : : 

890 FOR D=l TO 800 
900 NEXT D 



910 GOTO 420 

920 CALL SOl^D<700,247,2,392 

,0) 

930 CALL S0LND<235,294,2,494 
,0) 

940 CALL SOLt^JD (235,392,2,587 

,0) 

950 CALL S0I^D<235,294,2,494 
,0) 

960 CALL SOLWD(800 ,247,2,392 
,0) 

970 INPUT "[^mj TO PLAY AGAI 

N? <Y/N) " :Z* 

980 IF Z*="Y" THEN 410 

990 END 

1000 REM »*»IF ENTRY IS LESS 
THAN A WORD*** 



1010 


PRINT 


TAB(6) 




DON'T 


CHE 


AT! ! 


II 




















1020 


RETURN 


















1030 


DATA 


"A 


N 


K 


I 


R 


W 


T 


D 


L 

























1 040 


DATA 


S 


r— 

r 


H 


K 


u 


T 


Y 


r 


E 


A 






















1 


DATA 


nil 

w 


u 


O 


n 


T 
1 


U 


r 


K 


i 


























DATA 


E 


K 


1 


v 
T 


1 1 

U 


T 
1 


r 


A 


P- 

r 


b 






















1 070 


DATA 


"N 


I 





V 


L 


I 


S 


R 


E 


o If 

S 






















1 OOV 


DATA 


"Q 


R 


B 


E 


t 

L 


E 


1 1 

u 


A 


W 


s 






















4 A r% A 

1 090 


DATA 


"T 


P 


E 


E 


F 


R 


M 


L 


I 


D" 






















1 100 


DATA 


"C 


K 





A 


E 


L 


M 


N 


s 


G" 






















1110 


DATA 


"E 


R 


T 


H 


F 


L 





B 


M 


A" 






















1 120 


DATA 


"S 


T 


I 


L 


R 


F 


L 


P 


H 


K" 






















1 130 


DATA 


"R 


H 


L 





I 


N 


A 


S 


T 


F" 






















1 140 


DATA 


"A 


G 


D 


J 


S 


L 


E 


I 


T 


0" 






















1150 


DATA 


"K 


A 


C 


T 


P 


L 


A 


I 


S 


0" 






















1 160 


DATA 


"S 


N 


S 


E 


T 


I 





C 


C 


L" 






















1170 


DATA 


"T 


U 


R 


W 


E 


A 


B 





H 


Y" 






















1180 


DATA 


"E 


E 


W 


Y 


P 


S 


D 


K 


S 


A" 






















1190 


DATA 


"Q 


K 


C 


T 


I 


U 


Y 


L 


D 


S" 
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1200 DATA "KOEKLCSCI 
T" 

1210 DATA "MOMYREDAS 
I" 

1220 DATA "DTUIESAEPR 
I " 

1230 DATA "BYISABETM 
B" 

1240 CALL CLEAR 

1250 PRINT "=WORD CRAZE=IS A 

COMPETI-" : "TIUE WORD GAME B 
ETWEEN TWO" : " PLAYERS . " : : 
1260 PRINT "EACH PLAYER TRIE 
S TO ORGAN-" :"I2E WORDS 

FROM A RAN-" 
1270 PRINT "DOMLY SELECTED L 
1ST OF" 

1280 PRINT "10 LETTERS. HIS 
OPPONENT" : "THEN HAS AN OPPOR 
TUNITY TO" 



1290 PRINT "CHALLENGE HIS WO 
RDS. THE" 

1300 PRINT "CHALLENGED WORDS 

ARE THEN" :" SUBTRACTED FROM 
THE TOTAL . " : : 

1310 PRINT "IF YOU HAVE FOUN 
D ALL THE" : "POSSIBLE WORDS B 
EFORE REACH-" 

1320 PRINT "ING '15', ENTER 
THE LETTER" 

1330 PRINT "'Z' TO END YOUR 
TURN . " : : 

1340 PRINT "IF THE GAME ENDS 
IN A TIE,": "A TIE BREAKER I 
S PLAYED . " : : 

1350 INPUT " (PRESS ENTER TO 

CONTINUE) ":Z* 
1360 RETURN 



WONDER MATH 



The practicality and versatility of this program is endless! The user sleets the drill (+ - x -f-), the number range 
to work within and how many attempts they want to give the answer before they want the Computer's help. 
This program can help everyone from a 1st grader to a college calculus professor. 



100 
110 
120 

130 
140 
150 
160 
170 

010 

180 
190 

200 

210 
220 
230 
240 
250 
260 
270 
280 
290 
H" : : : : 

300 PRINT "YOU MUST MAKE YOU 
R CHOICE" : "FROM THE FOLLOWIN 
G LIST OF" 

310 PRINT "MATH OPERATIONS:" 



REM ****************** 
REM * WONDER MATH * 
REM * TI BASIC * 
REM * PHIL TAYLOR * 
REM *HOLLAND, MICHIGAN* 
REM * COPYRIGHT 1983 * 
REM ****************** 
CALL CHAR<128,"001000FE0 
) 

GOSUB 1390 
GOSUB 1450 
GOSUB 1500 
GOSUB 1550 
CALL CLEAR 
CALL SCREEN<16) 
RANDOMIZE 
CALL CLEAR 
FOR D=l TO 750 
NEXT D 
CALL CLEAR 

PRINT TAB< 9) ;" WONDER MAT 



320 PRINT 
N" 



+ ADDITIO 



- SUBTRAC 



330 PRINT " 
TION" 

340 PR^NT " 
I CATION" 
350 PRINT " 
N" : : 

360 PRINT "TO CHANGE 
ONS AFTER": "YOU HAVE 
TYPE -1 AS" 

370 PRINT "YOUR ANSWER. " : : : : 
380 INPUT "ENTER CHOICE OF 
PERATION? " :A* 
390 GOTO 410 

GOSUB 1350 



X MULT I PL 



/ DIVISIO 



OPERATI 
BEGUN, 



400 

410 
420 
430 
440 
450 
460 
470 



IF 
IF 
IF 
IF 



A*="+" 
A*="-" 
A*="X" 
A*="/" 



THEN 
THEN 
THEN 
THEN 



460 
460 
460 
460 



THE LCWES 
NWIBERS 



FO 



GOTO 400 
CALL CLEAR 
PRINT "TELL ME 
T AND THE" :" HIGHEST 
YOU WISH TO" 
480 PRINT "WORK WITH.": 
R EXAMPLE : " : : 
490 PRINT "IF YOU ENTER 
NUMBERS":"*** 10,20 *** 
ILL GIVE" 

500 PRINT "YOU PROBLEMS US IN 
G ONLY THE" 



THE 

, I W 
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518 PRINT "NLMBERS BETWEEN 1 
8 28 . " : : 

528 PRINT "REMEMBER TO PUT A 
corns* BE-'':-TWEEN THE TWO N 
IMBERS OR" 

538 PRINT "YOU mv CONFUSE M 

En . ■ ■ ■ 
■ ■ a ■ ■ 

548 INPUT "ENTER YOUR NUMBER 

S? " : J , K 

558 CALL CLEAR 

568 PRINT "TELL ME HOW M^W 

TIMES YOU": "WOULD LIKE TO TR 

Y ANaJERING" 

578 PRINT "A QUESTI(>4 BEFORE 
I GIVE" 

588 PRINT "YOU THE CORRECT A- 
NSWER." : : : : 

598 INPUT "HCW MANY TIMES? " 
:T 

688 CALL CLEAR 

618 GOSUB 1188 

628 IF A*="+" THEN 668 

638 IF A*="-" THEN 778 

648 IF A*="X" THEN 888 

658 IF A*="/" THEN 998 

668 REM ***ADDITION*** 

670 GOSUB 1398 

688 CALL CLEAR 

698 1=8 

788 L=M+N 

718 PRINT M; " + " ;N; " = " ; 

728 INPUT P 

738 IF P=L THEN 1148 

748 IF P=-l THEN 288 

758 GOSUB 1238 

768 GOTO 718 

778 REM **SUBTRACTION*** 
788 GOSUB 1458 
798 CALL CLEAR 
888 L=M-N 
818 1=8 

828 PRINT M;" - ";N;" = "; 

838 INPUT P 

848 IF P=L THEN 1148 

858 IF P=-l THEN 288 

868 GOSUB 1238 

878 GOTO 828 

888 REM ***MULTI PLICATION** 
898 GOSUB 1588 
988 CALL CLEAR 
918 L=M«N 
928 1=8 

938 PRINT M;" X ";N;" = "; 
948 INPUT P 



958 IF P=-l THEN 288 

968 IF P=L THEN 1148 

978 GOSUB 1238 

988 GOTO 938 

998 REM ***DI'v'ISION««* 

1888 GOSUB 1558 

1818 CALL CLEAR 

1828 L=M/N 

1838 1=8 

1848 PRINT M;" / •';N;" = "; 

1858 INPUT P 

1868 IF P=L THEN 1148 

1878 IF P=-l THEN 288 

1888 GOSUB 1238 

1898 GOTO 1848 

1188 REM two RANDOM NUMBERS* 
1118 M=INT<RND*K>+J 
1128 N=INT<RND*M)+J 
1138 RETURN 

1148 REM ***CORRECT ANSWER* 
1158 X=2'^<1/12) 
1168 FOR B=l TO 13 

1178 CALL S0UND<25,118*X'^B,8 
) 

1188 NEXT B 

1198 PRINT TAB<9> ; "YOU'RE R 
I GHT ! ! " 

1288 FOR D=l TO 588 
1218 NEXT D 
1228 GOTO 688 

1238 REM ***WRCNG ANSWER*** 
1248 CALL S0UND<1888,118,1) 
1258 1=1+1 

1268 IF I>=T THEN 1298 
1278 PRINT TAB<6) ;"SORRY. . .T 
RY AGAIN" : : 
1288 RETURN 

1298 PRINT TAB<5);"TI^T WAS" 
;I ; "TRIES" 

1388 PRINT "THE CORRECT ANSW 
ER IS" ;L 

1318 FOR DELAY=1 TO 1888 
1328 NEXT DELAY 
1338 CALL CLEAR 
1348 GOTO 618 

1358 REM ***GET OPERATIC^*** 
1368 DISPLAY 

1378 INPUT "YOU MUST ENTER + 

,-,X, OR /? " :A* 

1388 RETUra^ 

1398 CALL CLEAR 

1488 CALL SCREEN<16) 

1418 FOR L=l TO 24 

1428 PRINT TABCL) ;CHR*<43) 
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1438 NEXT L 

1440 RETURN 

1458 CALL SCREEN<9) 

1468 FOR P=l TO 24 

1478 PRINT TAB(P) ;CHR*<45) 

1488 NEXT P 

1498 RETURN 

1588 CALL SCREEN<14) 

1518 FOR Q=l TO 24 



1528 PRINT TAB(Q) ;CHR*<128) 

1538 NEXT Q 

1548 RETURN 

1558 CALL SCREENdl) 

1568 FOR R=l TO 24 

1578 PRINT TAB(R) ;CHR*< 128) 

1580 NEXT R 

1598 RETURN 



HOME PLANT CARE LIBRARY VOLUME 1 & VOLUME 2 



A thoroughly detailed program covering the proper care of 41 varieties of Common House Plants. Included is 
information on v\/atering, light & temperature requirements and other generally helpful information. Vol. 2 has 
the same information of 41 different plants, all in a separate program. 

218 CALL CHAR<128,A*) : : CALL 

CHAR<132,B*) 
228 CALL SPRITE<#1 ,128,13,15 
,31 ,#2,132,13,28,32) 
230 CALL SPRITE<#4,128,13,15 
,217,#5, 132, 13,28,216) 
240 0*=" LIGHT: dfeSTRUCTED NO 
RTH WIN-DOW 

250 D*=" LIGHT: l^OBSTRUCTED 
WINDCW OR HALF OBSTR 
EAST OR WEST WINDOW" 
LIGHT: LNOBSTRUCTED 
WEST WINDCW 
LIGHT: DIRECT RAYS 
SUN FOR 3 TO 4 HOURS 




100 REh«««%««%«*»««««««««« 
110 REM* HmE PLANT * 
120 REM* CARE LIBRARY * 
130 REM*TI EXTENDED BASIC* 
140 REM*PHIL&CHRIS TAYLOR* 
150 REM* HOLUStfvjD, MICH * 
160 REM* COPYRIGHT 1983 * 
170 REM******************* 
1 80 CALL CLEAR : : CALL SCREE 
N<12):: CALL MAGNIFY < 3) 

190 A«="000000000000403C1E1E 

1 F8F7078381 E08081 838787021 43 

C78E8E9EA0C09092" 

200 B^"0110080E0E0E26131B1A 

1A1E0D070606B2B6E7CF8E8C8993 

2F4E56E'' 



NORTH 
UCTED 
260 E*=' 
EAST OR 
270 F*=' 
F THE 
A DAY" 

280 G*=" WATERING: SATURATE T 
HE SOIL, LET DRY- 1/2 INCH DEE 
P, THEN REPEAT" 
290 H*=" WATERING: SATURATE T 
HE POT THOROUGHLY. ALLOW SU 
RFACE TODRY TO THE TOUCH, TK 
EN RE- PEAT" 

300 I *=" WATERING: KEEP CONST 
ANTLY MOIST, BUT NOT SOGGY 



310 
55 

320 
65 

330 
75 

340 

T" 

350 

360 

370 



PREFERS 



J*=" TEMPERATURE: 
TO 70 DEGREES" 
A*=" TEMPERATURE: 
TO 80 DEGREES" 
B*=" TEMPERATURE: 
TO 90 DEGREES" 
AA*="HARDINESS: EXCELLEN 



PREFERS 



PREFERS 



AB*=" HARDINESS 
AC*=" HARDINESS 
DISPLAY AT<12,4) 



GOOD" 
FAIR" 
"HOIE P 

LANT CARE LIBRARY" :: DISPLA 
Y AT< 14, 10) : "CHAPTER #1" 
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380 FOR D=l TO 1080 :: NEXT 
D 

390 CALL CLEAR : : PRINT TAB< 

9) ; "MASTER MENU" : : : :"1) I 

NSECTS & FUNGUS" 

400 PRINT "2) HUMIDITY" : "3) 

FERTILIZER" :" 4) LIGHT": "5) W 

ATERING" 

410 PRINT "6) RE^v'IEUJ 1ST PLA 
NT MENU":"?) RE^JIEW 2ND PLAN 
T MENU" 

420 PRINT "8) REVIEW 3RD PLA 
NT MENU": "9) END THIS SESSIO 
N" : : : : 

430 INPUT "ENTER YOUR CHOICE 

? " :A : : CALL CLEAR 

440 ON A GOTO 450,549,620,71 

0,790,890,980,1070,1660 

450 PRINT TABC6) y" INSECTS AN 

D FUNGUS" : : : : 

460 PRINT "PREUENATI'v'E SPRAY 

ING WITH A": "PLANT INSECTICI 

DE IS RECOM-" 

470 PRINT "MENDED E'v'ERY MONT 
H. CHECK": "SOIL & F0ILA6E FO 
R INSECTS" 

480 PRINT "AND SPRAY ACCORD! 
NGLY . " : : 

490 PRINT "DISCOLORED SPOTS 
ON FOILAGE" : "MAY INDICATE LE 
AF FUNGUS." 

500 PRINT "TREAT WITH FOILAG 
E INSEC-" :"TICIDE." : : 
510 PRINT "SOFT STEMS AND RO 
OTS MAY IN-":"DICATE SOIL FU 
NGUS. TREAT" 

520 PRINT "WITH A GOOD SOIL 
FUNGICIDE.": : 
530 INPUT " < PRESS ENTER TO 
CONTINUE) " :Z* :: GOTO 390 
540 PRINT TAB< 1 1 ); "HUMIDITY" 

■ ■ ■ m 
• a ■ • 

550 PRINT "HOMES WITH HOT -A I 
R HEAT AND": "AIR CONDITIONIN 
G HAME REL-" 

560 PRINT "ATIk^ELY LOW HUMID 
ITY LE'v'ELS." :"MOST PLANTS LI 
STED WILL" 

570 PRINT "WITHSTAND THIS CO 
NDITION," :"BUT WITH ^v^ARIOUS 
DEGREES OF" 

580 PRINT "SUCCESS. LESS HAR 
DY PLANTS" :"WILL BENEFIT FRO 
M ALL THE" 



590 PRINT "HUMIDITY YOU CAN 
PUT INTO" 

600 PRINT "THE AIR WITH A HU 
MIDIFIER, " : "ETC. " : : : : 
610 INPUT " (PRESS ENTER TO 
CONTINUE) ": 2* :; CALL CLEAR 
: : GOTO 390 

620 PRINT TAB( 10) ; "FERTILIZE 
R" : : : : 

630 PRINT "FERTILIZER SHOULD 
BE USED": "MORE FREQUENTLY I 
N SPRING" 

640 PRINT "AND SUMMER WHEN P 
LANTS GROW": "MORE ACTI'v'ELY. 
APPLY BY RE-" 

650 PRINT "MOVING 1 INCH OF 
SOIL, APPLY" :" FERTILIZER, AN 
D REPLACE" 

660 PRINT "SOIL. FERTILIZERS 

SHOULD- : "CONTAIN:" : : 
670 PRINT " 1. NITROGEN: FOR 

HEALTHY" : "GREEN FOILAGE." 
680 PRINT " 2. PHOSPHORUS: F 
OR STRONG " : " ROOTS . " 
690 PRINT " 3. POTASH: FOR R 
ESI STANCE" : "TO DISEASE.": : 
700 INPUT " (PRESS ENTER TO 
CONTINUE) " :2* :: CALL CLEAR 
: : GOTO 399 

710 PRINT TAB( 12) ; "LIGHT" : : 

a a 

720 PRINT "MOST PLANTS, EXCE 
FT DELICATE" : "FERNS WILL DO 
BETTER WITH" 

730 PRINT "LIGHTING LEVELS H 
IGHER THAN" :" RECOMMENDED. MO 
ST WILL ALSO" 

740 PRINT "LIME WITH LESS LI 
GHT, THOUGH" : "REDUCED GROWTH 
, POORER" 

750 PRINT "HEALTH, AND SHORT 
ER LIFE IS": "THE RESULT.": : 
760 PRINT "THE LISTED LIGHT 
REQUIRE-" :"MENTS ARE FOR NAT 
URAL LIGHT." 

770 PRINT "MOST INDOOR PLANT 
S WILL GROW":"WELL WITH ARTI 
FICIAL LIGHT. " : : 
780 INPUT " (PRESS ENTER TO 
CONTINUE)" :Z* :: CALL CLEAR 
: : GOTO 390 

790 PRINT TAB(ll) ;"WATERING" 
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800 PRINT "DO NOT GIVE YOUR 
PLANTS A": "SET AMOLfNT OF WAT 
ER ON A" 

810 PRINT "SCHEDULED BASIS. 
WATERING" : "NEEDS MUST BE DET 
ERMINED BY" 

820 PRINT "FEELING AND OBSER 
VING THE" !"SOIL." : : 
830 PRINT "YOU SHOULD ALWAYS 
SATURATE" : "THE SOIL ALLOWIN 
G THE EXCESS" 

840 PRINT "TO COME OUT THE B 
OTTOM OF": "THE POT. DO NOT L 
ET YOUR" 

850 PRINT "PLANT SET IN THE 
EXCESS" :" WATER FOR MORE TmtA 
TWELVE" 

860 PRINT "(12) HOURS - THIS 

WILL ROT": "THE ROOTS.": : 
870 INPUT " (PRESS ENTER TO 
CONTINUE)" :Z* :: CALL CLEAR 
: : GOTO 390 

880 INPUT " (PRESS ENTER TO 
CONTINUE)" :2* 

890 CALL CLEAR : : PRINT TAB( 
10) ;" PLANT MENU" : : : :"1) 
ALOE" :"2) AMARYLLIS" 
900 PRINT "3) NORFOLK ISLm 
D PINE":"4) ASPARAGUS FERN" 
910 PRINT "5) CAST IRON PLA 
NT": "6) AZALEA":"?) BEGC»nII 
A" 

920 PRINT "8) CACTUS": "9) 
FISH TAIL PALM": "10) BELLA P 
ALM" 

930 PRINT "ID BjitflBOO PALM": 
"12) SPIDER PLANT": "13) GRAP 
E IVY" :"14) COLEUS" 
940 PRINT "15) CITRUS(LEMC»vi, 
ORANGE)" : "16) REVIEW NE>T PL 
ANT MENU" : : 

950 INPUT "ENTER YOUR CHOICE 

? " :A : : CALL CLEAR 

960 ON A GOTO 1140,1160,1170 

, 1 1 90 , 1 20 , 1 2 1 , 1 220 , 1 230 , 1 2 

50 , 1 260 , 1 270 , 1 280 , 1 290 , 1 

300,1310,980 

970 INPUT " (PRESS ENTER TO 
CONTINUE)" :Z* 

980 CALL CLEAR :: PRINT TAB( 
10); "MENU (CONT.)": : : :"17 
) CYCLAMEN" 

990 PRINT "18) CHINESE JADE" 
:"19) SAGO PALM": "20) RUBBER 
PLANT" 



1000 PRINT "21) FICUS BEN JAM 
INA":"22) FIDDLE LEAF": "23) 
GARDENIA" :" 24) GLOXINIA" 
1010 PRINT "25) PURPLE PASoI 
LJ" • 26) IVY" 

1020 PRINT "27) BABY TEARS". 
"28) HIBISCUS" :" 29) WAX PLAN 
T" 

1030 PRINT "30) REVIEW NEXT 
PLANT MENU": "31) GO BACK": : 
1040 INPUT "ENTER YOUR CHOIC 
E? ":A :: A=A-16 :: CALL CLE 
AR 

1050 ON A GOTO 1320,1330,134 
, 1 350 , 1 360 , 1 380 , 1 390 , 1 400 , 1 
4 1 , 1 420 , 1 430 , 1 440 , 1 450 , 
1070,890 

1060 INPUT " (PRESS ENTER TO 

CONTINUE)" :Z* 
1070 CALL CLEAR :: PRINT TAB 
(10); "MENU (CONT.)": : : :"3 
2) HYACINTH" 

1080 PRINT "33) EASTER LILY" 
:"34) PRAYER PLANT": "35) NAR 
CISSUS":"36) BOSTON FERN 

li 

1090 PRINT "37) ORCHID": "38) 
PHILODENDRON" :"39) DATE PAL 
M":"40) POINTSETTIA" 
1100 PRINT "41) MING TREE":" 
42) FINGER PALM":"43) AFRICA 
N VIOLET" 

1110 PRINT "44) SNAKE PLANT", 

:"45) GO BACK": "46) RETURN T 

MASTER MENU" : : 

1120 INPUT "ENTER YOUR CHOIC 

E? " :A : : A=A-31 : : CALL CLE 

AR 

1130 A GOTO 1460,1490,153 
, 1 540 , 1 570 , 1 580 , 1 590 , 1 600 , 1 
610,1 620 , 1 630 , 1 640 , 1 650 , 
980,390 

1140 PRINT TAB(12) ;"''ALOE'" : 
: : :AA*: : "WATERING: WATER 
LIGHTLY, LET" 

1150 PRINT "DRY THEN REPEAT 

" : : F* : : B* : : : : : : GOTO 8 

80 

1160 PRINT TAB(10) ;"'AMARYLL 

IS'": : : :AA*: :G*: :F*: :A 

«:::::: GOTO 880 

1170 PRINT TAB( 6) ; "NORFOLK I 

SLAND PINE": : : :AB*: :H*: 

:E$: :A$: : : : 

1180 GOTO 880 



9h 



1198 PRINT TAB<8) j'-'ASPARAGU 
S FERN-"': : : :AB*: :G*: :D* 
: :A$: : : : : : GOTO 888 
1288 PRINT TAB<7) ;"'CAST IRQ 
N PLANT"*: : : :AA*: :H*: :C 
:A*: : : : : : GOTO 88 

8 

1218 PRINT TABCl 1 >;" 'AZALEA' 

: : :AB*: :H*: :E*: :A*: 
: : : : : GOTO 888 
1228 PRINT TAB< 1 1 'BEGONIA 
: : : :AC*: : H* : : D* : :A*: 

: : : : : GOTO 888 
1238 PRINT TAB( 18) ;" 'CACTUS' 
: : :AB*: : "WATERING: WAT 
ER HEAV^ILY, AL-" 
1248 PRINT "LOWING SOUL TO D 
RY BETWEEN WATERINGS": : E* : 

:A*: : : : : : GOTO 888 
1258 PRINT TAB<7) ; "'FISH TAI 
L PALM'": : : :AB*: : : :E* 
: :A*: : : : : : GOTO 888 
1268 PRINT TAB(9) ;" 'BELLA PA 
LM'" : : : :AA*: :H*: :C*: :B 
*:::::: GOTO 888 
1278 PRINT TAB( 8) 'BAMBOO P 
ALM'": : : :AA*: :H*: :C*: : 
B* : : : : : : GOTO 888 
1288 PRINT TAB< 9) ;" 'SPIDER P 
LANT'" : : : :AB*: :H*: :D*: 
:A*: : : : : : GOTO 888 
1298 PRINT TAB< 18) 'GRAPE I 
W": : : :AB*: :H*: :D*: :A 
*: : : : : : GOTO 888 
1388 PRINT TAB(11);"'C0LEUS' 
": : : :AA*: :H*: :F*: :B*: 
: : : : : GOTO 888 
1318 PRINT TAB( 1 1 'CITRUS' 
" : : : :AC*: :H*: :F*: :A*: 
: : : : : GOTO 888 
1328 PRINT TAB(18) ;"'CYCLAME 
N'" : : : :AC*: :I*: :E*: :J* 

GOTO 978 

1338 PRINT TAB(8) 'CHINESE 
JADE'": : : :AB*: :G*: :E*: 
:A$: : : : : : GOTO 978 
1348 PRINT TAB(18) ;"'SAGO PA 
LM'": : : :AA*: :G*: :D*: :A 
*:::::: GOTO 978 
1358 PRINT TAB(8) 'RUBBER P 
LANT'": : : :AB*: :G*: :D*: 
:B*: : : : : : GOTO 978 
1368 PRINT TAB<7) ; " 'FICUS BE 
NJAMINA'": : : :AB*: :G*: :E 
$ • a B$ ■ ■ ■ : 



1378 GOTO 978 

1388 PRINT TAB( 9) ;" 'FIDDLE L 
EAF'": : : :AB*: :G*: :D*: : 
B* : : : : : : GOTO 978 
1398 PRINT TAB<ie) ;"'GARDENI 
A'": : : :AC*: :I*: :F*: :B* 
:::::: GOTO 978 
1488 PRINT TAB< 18) ; " 'GLOXINI 
A'": : : :AC*: :I*: :E*: :B* 
:::::: GOTO 978 
1418 PRINT TAB< 8) ;" 'PURPLE P 
ASSIGN'": : : :AC*: :H*: :E* 
: :B*: : : : : : GOTO 978 
1428 PRINT TAB(12) -,"'1^'" : 
: : :AB*: :H*: :E*: :J*: : : 

: : : GOTO 978 
1438 PRINT TAB< 18) ; " 'BABY TE 
ARS'": : : :AC*: :H*: :E*: : 
A* : : : : : : GOTO 978 
1448 PRINT TAB< 18) ; " 'HIBISCU 
S'": : : :AC*: :I*: : F* : : B* 
:::::: GOTO 978 
1458 PRINT TAB( 18) ; " 'WAX PLA 
NT'": : : :AB*: :G*: :E*: sA 
*:::::: GOTO 978 
1468 PRINT TAB< 18) ; "'HYACINT 
H'": : : :AB*: :I*: : "LIGHT: 

DIRECT UNTIL BUDS BE-" 
1478 PRINT "GIN TO SHOW COLO 
R. THEN TAKEFROM DIRECT SmL 
IGHT": :A*: : : : 
1488 GOTO 1868 

1498 PRINT TAB (9) ;" 'EASTER L 
ILY'": : : :AB*: :I*: : 
1588 PRINT "LIGHT: DIRECT UN 
TIL BUDS BE-GIN TO SHOW COLO 
R, THEN TAKE" 

1518 PRINT "FROM DIRECT SUNL 
IGHT": :J*: : : : 
1528 GOTO 1868 

1538 PRINT TAB< 8) 'PRAYER P 
LANT'": : : :AB*: :H*: :D*: 
:B*: : : : : : GOTO 1868 
1548 PRINT TAB<9) ; " 'NARCISSU 
S'": : : :AB*: :I*: :"LIGHT: 

DIRECT UNTIL BUDS BE-" 
1558 PRINT "GIN TO SHOW COLO 
R, THEN TAKEFRCM DIRECT SLML 
IGHT": :J*: : : : 
1568 GOTO 1868 

1578 PRINT TAB <8) ;" 'BOSTON F 
ERN'": : : rAC*: :I*: :C*: : 
A*: : : : : : GOTO 1868 
1588 PRINT TAB( 12) ; "'ORCHID' 
": : : :AC*: :H*: :D*: :B*: 
: : : : : GOTO 1868 



95 



1598 PRINT TAB<8) ;"'PHILODEN 
DROM'-: : : :AA*: :G*: :C*: 
:B*: : : : :: GOTO 1868 
1688 PRINT TAB<9) j-'DATE PAL 
M^": : : sAB*: :H*: :D*: :A* 
:::::: GOTO 1868 
1618 PRINT TAB<9) j^'POINTSET 
TIA'": : : :AB*: :I*: :E*5 : 
A^s : : : :: GOTO 1868 
1628 PRINT TAB<18);"''MING TR 
EE-"*: : : sAB*: :G*s :E*: :B 
* GOTO 1868 



1638 PRINT TAB( 9) ; "'FINGER P 
ALM'»: : : :AB*: :H*: :D*: : 
A*: : : : GOTO 1868 

1648 PRINT TAB<8) ;"'AFRIDW 
VIOLET'": : : :AB*s :I*: :E* 

: :A*: : : : :: GOTO 186 
8 

1658 PRINT TAB<9) ;"'Sr^KE PL 
ANT'": : : :AA*: :G*: :C*: : 
A*: : : : : : GOTO 1868 
1668 END 



DOXOLOGY/SINGING AID 

Have you ever wanted to sing but had difficulty learning your part? This program has the capability to produce 
signing parts. Choose either the Soprano. Tenor or Bass. Hear them alone or with the other parts in the 
background at a level determined by you. By "Tricking" the Computer the last line of notes plays below a 
frequency of 110, allowing you to play a note below even the piano keyboard! Included is a listing of the 
method the Programmer used to "Trick" the Computer. 



188 REM 

lie REM » HYMN DOXOLOGY * 
128 REM « TI BASIC » 
138 REM «RIChMRD PROCTOR* 
148 REM » DAYTON OHIO « 
158 REM ^COPYRIGHT 1983 » 
168 REM 

178 CALL CLEAR 

188 CALL SCREEN<16> 

198 CALL C0L0R<13,9,16) 

288 CALL CHAR< 128, "888888882 

A3E1C88"> 

218 PRINT " DOXOLOG 
Y":::" 8 TO 38 WITH 8 LOUD 
EST" : : : : : 

228 INPUT " SOPRANO ? " :S 
238 INPUT " TENOR ? " :T 
248 INPUT " ^SS ? ":B 
258 CALL CLEAR 
260 PRINT ■ PRAISE GOD FROM 

WHOM ALL" : : : 
278 GOTO 418 

288 PRINT " BLESSINGS FLO 
W;-::: 

290 GOTO 410 

300 PRINT ■ PRAISE HIM, ALL 



CREATURES HER 



310 GOTO 410 
320 PRINT ■ 
E BELOW;-::: 
330 GOTO 410 

340 PRINT ■ PRAISE HIM ABOV 
E, YE"::: 
350 GOTO 410 



360 PRINT " 



HEAVENLY HOST 



370 GOTO 410 

380 PRINT - PRAISE FATHER, 
SON," : : : 
390 GOTO 410 

400 PRINT " fi^O HOLY GHOS 
T."::: 

410 READ D,a^J,TN,»^J,R,C,X 
420 CALL SOlt4D(D«500,SN,S,TN 
,T,BN,B) 

430 CALL HCmR<17,16,32,12) 

440 CALL HCHAR<R,1 ,32,30) 

450 CALL HCHAR(R,C,128> 

460 IF X=l THEN 280 

470 IF X=2 THEN 300 

480 IF X=3 THEN 320 

490 IF X=4 THEN 340 

500 IF X=5 THEN 360 

510 IF X=6 THEN 380 

520 IF X=7 THEN 400 

530 IF X=8 THEN 700 

540 GOTO 410 

550 DATA 2,392,247,165,20,7, 

0,2,392,247,165,20,13,0 

560 DATA 2,370,220,147,20,17 

,0,2,330,196,165,20,22,0 

570 DATA 2,294,185,123,20,27 

,1 ,2,392,196,165,20,9,0 

580 DATA 2,220,185,147,20,13 

,0,4,494,196,196,20,18,2 

590 DATA 2,494,196,196,20,7, 

0,2,494,196,196,20,13,0 
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600 DATA 2,494,196,123,20,18 

,3,2,440,185,147,20,8,0 

610 DATA 2,392,196,165,20,12 

,0,2,523,196,131 ,20,18,0 

620 DATA 2,494,196,196,20,22 

,0,4, 440 , 1 85 , 1 47 , 20 , 25 , 4 

630 DATA 2,392,196,165,20,7, 

0,2,440,185,147,20,13,0 

640 DATA 2,494,196,196,20,16 

,0,2, 440 , 1 85 , 1 47 , 20 , 1 8 , 

650 DATA 2,392,196,123,20,23 

,5,2,330,196,131 ,20,9,0 

660 DATA 2,370,220,110,20,13 

,0,4, 392 , 247 , 1 96 , 20 , 1 8 , 6 

670 DATA 2,587,247,196,20,7, 

0,2,494,196,196,20,12,0 

680 DATA 2,392,247,165,20,15 

,0,2,440,294,147,20,21 ,7 

690 DATA 2,523,330,110,20,8, 

8 

700 CALL SOUND( 500 ,494,3,294 
,T,123,B) 



710 CALL HCHAR<20,8,32) 
720 CALL HCHAR<20,11 ,128) 
730 CALL SOUND< 500 ,494,8,294 
,T,131 ,B) 

740 CALL HCHAR<20,11 ,32) 
750 CALL HCHAR(20,11 ,128) 
760 CALL SOUND<500,440,S,294 
,T,147,B) 

770 CALL HCHAR<20,11 ,32) 
780 CALL HCHAR<20,13,128) 
790 CALL SOUND< 500, 440, 8,262 
,T, 147,8) 

800 CALL HCH^R<20,13,32) 

810 CALL HCHAR<20,13,128) 

820 CALL S0LBv4D( 2000, 392,8,24 

7, T, 1470, 30, -4,8) 

830 CALL HCHAR( 20, 13,32) 

840 CALL HCHAR<20,18,128) 

850 FOR D=l TO 400 

860 NEXT D 

870 RESTORE 550 

880 GOTO 170 



SHOOT'EM DOWN 

Your assignment is to destroy an attacking enemy bomber, aiming your sliots at carefully selected 
coordinates. The assignment is unusually difficult since this spaceage bomber can travel sideways and 
backwards as well as up & down! 




REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
CALL 



100 

110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
OWN" 
230 PRINT « 

<Y/N) " : : 
240 PRINT #1 
OT'DM DOaJN." 
250 PRINT ttl 



***************** 

* SHOOT'EM DOWN * 

* TI BASIC * 

* TE-2 W/SPEECH * 
*R I CHARD PROCTOR* 

* DAYTON OHIO * 
♦COPYRIGHT 1983 * 

CLEAR 



CALL SCREEN<12) 
OPEN #1 : "SPEECH" , OUTPUT 
PRINT ttl : ''//45 135" 
PRINT TAB< 9) ; "SHOOT'EM D 



INSTRUCTIONS 
■WELCOME, TO SHO 



'//46 185" 



260 

270 

280 

90 

290 

300 



CALL KEY<0,K,S) 
IF K=78 THEN 670 
IF K089 THEN 260 

CALL CLEAR 
CALL SCREEN< 1 1 ) 



ELSE 2 
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310 PRINT "THE ENEMY PLANE I 
S LURKING SOMEWHERE OVERHEA 
D. THE" 

320 PRINT "PLANE CAN MOUE FO 
RWARD OR" 

330 PRINT "BACKWARD, UP OR D 
OWN, OR SIDEWAYS. AS THE 
CAPTAIN YOU" 

340 PRINT "CHOOSE THE COORDI 
NATES FOR" 

350 PRINT "FIRING THE ACK-AC 

K GUN .":::::::::: 

360 PRINT "PRESS ANY KEY WHE 

N READY" : : 

370 CALL KEY<0,K,S) 

380 IF S=0 THEN 370 

390 CALL CLEAR 

400 PRINT "THE PLANE'S POST I 

ON WILL BE UPDATED AFTER EAC 

H MOVE. IT" 

410 PRINT "CAN MOVE ONE COOR 
D I NATE FORWARD OR BACK < 

X>, ONE" 

420 PRINT "COORDINATE TO EIT 
HER SIDE" 

430 PRINT "<Y>, AND/OR ONE C 
OORDINATE UP OR DOWN. THE 
PLANE MAY" 

440 PRINT "ALSO REMAIN STAT! 
ONARY. THE" 

450 PRINT "COORDINATES REPRE 
SENT 100 FEET IN EACH DIRE 
CTION AND" 

460 PRINT "YOU MUST HIT THE 
EXACT PLACE" 

470 PRINT "TO HIT THE PLANE. 
EACH SALUOCONSISTS OF THREE 
SHOTS 

480 PRINT "PRESS ANY KEY WHE 

N READY" : : 

490 CALL KEY<0,K,S) 

500 IF S=0 THEN 490 

510 CALL CLEAR 

520 PRINT "YOU HAVE AN ADVAN 
TAGE OVER THE PLANE. YOU C 
AN SHOOT" 

530 PRINT "ANYWHERE IN THE S 
KY, WHILE" 

540 PRINT "THE PLANE CAN MOV 
E ONLY ONE COORDINATE AT A T 
I ME. THE" 

550 PRINT "ADVANTAGE OF THE 
PLANE IS" 



560 PRINT "THAT HE CAN MOVE 
ANY OR ALL DI RECTI (>4S IN THE 

SAME MOVE" 
570 PRINT "OR REMAIN STATION 
ARY. THIS" 

580 PRINT "MAKES IT EXTREMEL 
Y DIFFICULTTO HIT. YOU Cfi^ 
SELECT 1" 

590 PRINT "THROUGH 10 FOR X 
AND Y FOR" 

600 PRINT "FORWARDS AND BACK 
WARDS AND SIDEWAYS. SELECT 

6 THROUGH" 
610 PRINT "15 FOR AOTITUDE. 

IF YOU" 

620 PRINT "SELECT FOR ALT 
ITUDE YOU CAN FIND OUT WHER 
E THE PLANE" 

630 PRINT "IS WITHOUT SHOOTI 

NG ANY SALVOS . " : : 

640 PRINT "PRESS ANY KEY WHE 

N READY" : : 

650 CALL KEY<0,K,S) 

660 IF S=0 THEN 650 

670 CALL CLEAR 

680 RANDOMIZE 

690 C1=INT<11«RND)+16 

700 PRINT " GOOD LUCK, C 

APTAIN" :::::: 

710 PRINT " PRESS ^^Y KEY W 

HEN READY" : : 

720 CALL KEY<0,K,S) 

730 IF S=0 THEN 720 

740 CALL CLEAR 

750 CALL SCREEN(12) 

760 REM SET UP POSITION FOR 

PLANE 
770 A=INT< 10*RND)+1 
780 B=INT( 10*RND)+1 
790 D=INT< 10*RND)+6 
800 REM A IS THE X AXIS 
810 REM B IS THE Y AXIS 
820 REM D IS THE HEIGHT 
830 REM PLANE'S STARTING C 
OORDINATES 

840 PRINT " CAPTAIN, WHAT CO 
ORDINATES?" : : : 

850 PRINT #1 : "CAPTAIN, -^WHAT 

CO ORDINETS?" 
860 Xl=l 
870 Yl=l 

880 INPUT "X (1-10) " :X1 
890 IF Xl>10 THEN 920 
900 INPUT "Y <1-10) " :Y1 
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910 IF YKll THEN 960 
920 PRINT 

930 PRINT " SIR, THE PLANE'S 
WERHEAD NOT IN THE NEXT 
COUNTY i " : : : : : 

940 PRINT ttn-'-^SIR, THE <PLA 

NE'S OVER^HEAD. NOT IN THE 

'"NEXT COUNTY." 

950 GOTO 840 

960 PRINT : : 

970 PRINT "WHAT ALTITUDE SET 
TING?" : : 

980 PRINT #1:"WHAT, AL TITUD 
E SETTING?" 

990 INPUT "ALTITUDE (6-15)&0 

=<UPDATE> ":C 

1000 IF C=0 THEN 1110 

1010 IF 015 THEN 1070 

1020 IF C>5 THEN 1530 

1030 PRINT : : 

1040 PRINT "CAPTAIN, THE PLA 
NE-S IN THE SKY NOT IN THE M 
UD ! " : : : : 

1050 PRINT #1: "CAPTAIN, THE, 
OPLANE'S IN THE <SKY NOT I 
N THE ''MUD! " 
1060 GOTO 970 
1070 PRINT : : 

1080 PRINT "CAPTAIN, THE PLA 
NE'S IN THE SKY NOT IN SPACE 

■ • ■ ■ 

1090 PRINT #1: "CAPTAIN, THE, 
OPLANE'S IN THE <SKY NOT I 
N SPACE! " 
1100 GOTO 970 
1110 PRINT : : 

1120 PRINT " THE PLANE WAS 
AT THE FOLLOWING COORD 

INATES: ":: 

1130 PRINT «1:"-THE PLANE WA 
S AT THE >FOLLOWING OCO >0R 
DINETS." 

1140 PRINT "X= ";A;"Y= ";B:: 

1150 PRINT "AND AT AN ALTITU 

DE OF " ; D : : : : : : 

1160 REM NEW PLANE POSITIO 

N 

1170 A1=INT<2*RND) 

1180 B1 = INT<2*(^D) 

1190 D1=INT(2*RND) 

1200 REM CHECK FOR PROPER M 

O'v'E 

1210 REM - OR + MOVE 
1220 Q1=INT<2*RND) 



1230 Q2=INT<2*RND> 
1240 Q3=INT<2*RND) 
1250 IF Ql=l THEN 1270 
1260 Ql=-1 

1270 IF Q2=l THEN 1290 
1280 Q2=-l 

1290 IF Q3=l THEN 1310 
1300 Q3=-l 

1310 IF A+<A1*Q1)>10 THEN 13 
70 

1320 IF A+<A1»Q1)<1 THEN 135 


1330 A=A+<A1*Q1) 
1340 GOTO 1380 
1350 A=l 
1360 GOTO 1380 
1370 A=9 

1380 IF B+<B1*Q2)>10 THEN 14 
40 

1390 IF B+<B1*Q2)<1 THEN 142 


1400 B=B+<B1*Q2) 
1410 GOTO 1450 
1420 B=l 
1430 GOTO 1450 
1440 B=9 

1450 IF D+(D1*Q3)>15 THEN 15 
10 

1460 IF D+<D1*Q3)<6 THEN 149 


1470 D=D+<D1*Q3> 
1480 GOTO 840 
1490 D=6 
1500 GOTO 840 
1510 D=15 
1520 GOTO 840 
1530 FOR 0=1 TO 3 

1540 CALL SOUND<350,-5,0,205 

,0,175,0,110,0) 

1550 NEXT Q 

1560 FOR DELAY=1 TO 500 

1570 NEXT DELAY 

1580 IF XI OA THEN 1610 

1590 IF YlOB THEN 1610 

1600 IF C=D THEN 1760 

1610 PRINT : : : : 

1620 PRINT "SORRY CAPTAIN, W 

E^KfE MISSED." : : : : 

1630 PRINT #1:"'^S0RRY CAPTAI 

N, WE'UE -.MISSED! " 

1640 C1=C1-1 

1650 PRINT "YOU STILL HAVE " 
;C1 ;" SALVOS LEFT." : : 
1660 IF C1>0 THEN 1110 
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1670 PRINT "SORRY CAPTAIN, N 
MORE AT-WUNITION AND W 

E a^^T GET HIM WITHOUT 
AmUNITIC»>J." : : 

1680 PRINT «1 :*"^SORRY. . CAPT 
AIN, NO MORE, -AMMUNITION." 
1690 PRINT ttl:"AND _WE C^^'T 
-^GET HIM WITHOUT, _AMMUNITI 

1700 PRINT "TO PLAY AGAIN TY 

PE Y, IF NOT TYPE N" : : 

1710 CALL KEY<0,K,S> 

1720 IF K=89 THEN 670 

1730 IF K078 THEN 1710 

1740 CALL CLEAR 

1750 END 

1760 CALL CLEAR 

1770 FOR 1=1 TO 3 

1780 CALL SOUND<1600,-7,0> 

1790 FOR Q=l TO 20 



1800 C=INT<RND*14)+3 

1810 CALL SCREEN<C) 

1820 NEXT Q 

1830 NEXT I 

1840 CALL SCREEN(12) 

1850 FOR DELAY=1 TO 200 

I860 NEXT DELAY 

1870 PRINT ttl:"//52 200" 

1880 PRINT "PATTC»vJ WOULD BE 

PROUD OF YOU! ! ! YOU GOT T 

HAT BLASTED PLANE !!!":: 

1890 PRINT #1:"<PATT0N, WOUL 

D BE <> PROUD OF YOU! " 

1900 PRINT ttl:"<YOU GOT THAT 

, -^BLASTED <> PLANE." 

1910 PRINT #l:"//46 185" 

1920 PRINT "YOU STILL HfifJE 

" ;C1 ;" SALVOS LEFT." : : 

1930 GOTO 1700 



GIANT SLALOM SKI RUN 



This individual sport (game) offers you the opportu 
You're being timed, but don't be in such a hurry as to 
side of a mountainno/. Joysticks optional 



nity to test your maneuverability on a difficult course, 
hit an obstacle or you'll find yourself skiing right off the 



100 REM**************** 

110 REM* SKI RACE * 

120 REM*EXTENDED BASIC* 

130 REM* J.GULICK * 

140 REM*FT. MITCHELL, KY* 

150 REM*COPYRIGHT 1983* 

160 REM**************** 

170 CALL CLEAR 

180 REM**INITIALI2ATI0N** 

190 RANDOMIZE :: F=l :: N=0 

: ; HIN=9E20 

200 IMAGE ##:##.# 

210 CALL CHAR<97,"7E7E7E4242 

424242") 

220 CALL CHAR<105,"2424BD7E3 
C3C2424" ,106,"24243C3C7EBD24 
24") 

230 CALL CHAR<107,"4C4C5E7F5 
E52620F" ) 

240 CALL CHAR( 109, "010107070 
F070303" ,110,RPT*<"F" ,16) ,11 
1 , "80C0E0E0F0C08000" ) 
250 CALL C0L0R<9, 7,1 ,10,15,1 
,11 ,13,1) 

260 CALL CHAR<113,"01030F070 
F0F0703" , 1 14, "0080C080C0E0C8 
00" ) 



270 REM**INSTRUCTIONS** 
280 PRINT TAB<10);"SKI RACE" 
: :" THE OBJECT OF THIS GAME 
IS" 

290 PRINT "FOR YOU, THE SKIE 
R, TO RACE AGAINST TIME TO T 
HE BOTTOM OF THE MOUNTA 
IN.- 

300 PRINT " YOU MUST DODGE S 
LOLOM FLAGS<a>, TREES <qr>, 
AND ROCKS" 

310 PRINT "<mno> USING THE < 
S> AND'<D> KEYS OR JOYSTICK 
#1 ." 

320 PRINT :" HIT <ENTER> 

TO BEGIN." ::::::: 

330 CALL KEY<0,X,S):: IF X<> 

13 THEN 330 ELSE CALL CLEAR 

: : CALL SCREEN<16) 

340 REM**PR06RAM RUN** 

350 CALL COLOR<0,2,2) 

360 DIM A*<9):: A*(1),A*<2), 

A*(3>="a" :: A*( 3) , A*< 4)=" qr 

" : : A*(5)="mno" 

370 CALL SPRITE<«1 105,9,1 ,9 

0) 



100 




NEXT 



: DISPLAY AT( 1 
INT(N/6e) ,N-6e*I 



388 FOR 

DISPLAY AT<1 ,15) : USING 

:X : : FOR T=l TO 280 
390 NEXT T : : NEXT X : 

SOLWD<200,-7,0) 
400 FOR T=l TO 100 
410 FOR M=l TO 240 
420 N=N+.5 
) :USIN6 200 
NT(N/60) ; 

430 CALL SOmD<-1000 ,-5,20-A 
BS<Q)*2> 

440 PRINT TAB(INT<ra««JD*20)+5) 

;A*<INT<RND*9>+1) : 

450 CALL JOYSTd ,X,Y) : : IF X 

=0 THEN 460 GNQA+ <X=-4) -< 

X=4) : : GOTO 480 

460 CALL KEY<1 ,X,S) 

470 Q=Q+<X=2)-<X=3) 

480 IF ABS<Q)>5 THEN Q=5*S(^ 

<Q> 

490 CALL MOTim<«l ,-<<M/5)=I 
NT<M/5)> ,Q*2) 
500 CALL P0SITIO4<#l ,X,Y) 
510 Q=Q-<Y<80)*2+<Y>160)*2 
520 CALL GCHAR<INT<(X+l)/8)+ 
1 ,INT<<Y+2)/8)+l ,T) 
530 IF T=32 THEN 620 
540 CALL SOUslD(100,-5,0) : : C 
ALL M0TI0N<#1 ,2,Q) : : CALL PO 
SITI0N<#1 ,X1 ,Y1) 
550 Xl=-<Xl-8>*<Xl-8>0)+l 
560 M=M-INT<ravJD*ll)-5 :: FOR 
P=l TO 10 :: CALL PATTERN<# 
1 ,105-<P/2=INT<P/2))) 
570 FOR T=l TO 50 : : NEXT T 
: : NEXT P 

580 CALL SOl^D<500,-5,0) : : C 
ALL PATTERNS #1 ,107) : : CALL M 
0TI(^<#1 ,0,0) 

590 FOR T=l TO 750 : : NEXT T 

:: CALL PATTERN< #1 , 1 05) 
600 Q=0 :: CALL MOTION<#1,0, 
0):: CALL L0CATE<#1 ,X1 ,Y1 ) 



610 DISPLAY AT<l+INT<Xl/8) ,1 
):RPT*<" ",160); 
620 NEXT M 

630 CALL COLOR<0,1 ,1) : : CALL 

M0TI0N<#1 ,0,0) 
640 CALL CLEAR :: PRINT F 
INISH LINE—" :: 

FOR M=l TO 25 
650 PRINT : : FOR T=l TO 50 : 
: NEXT T : : NEXT M 
660 CALL DELSPRITECALL) : : FO 
R X=2 TO 16 :; CALL SCREEN<X 
) : : FOR T=l TO 75 
670 NE)a T : : NEXT X 
680 REM**FINISH LINE** 
690 DISPLAY AT<10,5) :''YOU 1^ 
VE FINISHED THE" :TAB( 1 2) ; " SK 
I RIM . " : 

700 DISPLAY TAB<5) j-TIME FOR 
RIM:";:: PRINT USING 280: IN 
T<N/60) ,N-60*INT<N/60) ; 
710 IF N<HIN THEN HIN=N 
720 DISPLAY TAB<4);"BEST TIM 
E TODAY;" ; 

730 PRINT USING 200:INT<HIN/ 
60) ,HIN-60*INT<HIN/60> ; 
740 PRINT TAB<5);"HIT <Q> FO 
R NEW (^E" ; 

750 CALL KEY<1,X,S):: IF X<> 
18 THEN 750 

760 CALL CLEAR : : CALL COLOR 
<0,2,2):: N=0 :: 0=0 :: GOTO 
370 
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HAPPY BIRTHDAY SONG - CAKE INCLUDED 



The fun way to sing someone the Birthday Song and know that all the singers will be in key! Here you can have 
your cake and see it too! Speech is used in the program, but to run without speech, simply delete line #190, 
#730 and #740. 



108 REM **************** 
110 REM « BIRTHDAY SONG* 
120 REM » TI BASIC « 
130 REM «BY BOB WARTMAN* 
140 REM *PARK HILLS,KY.* 
150 REM ^COPYRIGHT 1 983« 
160 REM **************** 
170 CALL CLEAR 
180 REM ^^INITIALIZATION** 
190 OPEN #1 :" SPEECH", OUTPUT 
200 M*=- HAPPY BIRTHDAY" 
210 CALL CHAR< 39," 08081 8387C 
3C181 " ) 

220 CALL CHAR<41 ,"292979F8FC 
78301") 

230 CALL CHAR< 97, "2400128008 
220049") 

240 CALL SCREEN<16) 

250 CALL COLOR< 1 , 12, 16) 

260 CALL C0L0R(2,9,16) 

270 CALL C0L0R<3,11 ,11) 

280 CALL C0L0R(9,2,16) 

290 CALL COLOR(10,4,4) 

300 CALL COLORdl ,10,10) 

310 CALL COLOR< 12,5,5) 

320 PRINT " UHOSE BIRTHDAY 

IS IT?" : : : 

330 INPUT A* 
340 CALL CLEAR 
350 REM **TABLE & CAKE** 
360 CALL HCHAR( 16,1 ,104,288) 
370 CALL UCh^R(9,7,48, 12) 
380 CALL VCH^R<9,26,48,12) 
390 CALL HCHAR< 22, 13,48,8) 
400 CALL HCHARC 21 ,10,48,14) 
410 FOR R=20 TO 10 STEP -1 
420 CALL HCHARC R, 7, 48, 20) 
430 NEXT R 

440 FOR X=ll TO 7 STEP -1 
450 READ Y,Z 

460 CALL HCHAR(X,Y, 1 12,Z) 

470 NEXT X 

480 FOR 1=1 TO 14 

490 CALL HCHAR< 14, I+9,ASC<SE 

G*(M*, I , 1 ) ) ) 

500 NEXT I 

510 FOR 1=1 TO LEN(A^) 

520 CALL HCHAR(17,I+(32-LEN< 

A*) )/2,ASC<SEG*<A*, I , 1 ) ) ) 

530 NEXT I 

540 REM **CANDLES** 



550 FOR Y=9 TO 21 STEP 6 

560 CALL UCHAR<4,Y,120,5) 

570 CALL V/'CHAR<5,Y+3,120,5) 

580 NEXT Y 

590 GOSUB 780 

600 REM **MUSIC** 

610 FOR M=l TO 21 

620 READ T,X,Y,Z 

630 CALL SOUND<3000/T,X,1 ,Y, 

1,Z,1) 

640 GOSUB 800 
650 NEXT M 

660 REM **SMOKE & END** 

670 FOR DELAY=1 TO 580 

680 NEXT DELAY 

690 FOR C=9 TO 21 STEP 6 

700 CALL HCHAR<3,C,97) 

710 CALL HCHAR<4,C+3,97) 

720 NEXT C 

730 PRINT #1 :M* 

740 PRINT ttl :A* 

750 FOR DELAY=1 TO 3000 

760 NEXT DELAY 

770 END 

780 REM *FLICKERING FLAMES* 
790 1=1 

800 FOR C=9 TO 21 STEP 6 
810 I=I*-1 

820 CALL HCHARC 3, C, 40-1) 
830 CALL HCHAR< 4,0+3,40+ I) 
840 NEXT C 
850 RETURN 

860 REM *CAKE ICEING DATA* 
870 DATA 13,8,10,14,7,20,10, 
14,13,8 

880 REM **MUSIC DATA** 

890 DATA 4,523,523,523,4,587 

, 440 , 440 , 4 , 523 , 466 , 392 , 4 , 698 

,440,349 

900 DATA 2,659,392,262,4,523 
, 523 , 523 , 4 , 587 , 349 , 220 , 4 , 523 
,330 ,196 

910 DATA 4,784,330,131,2,698 
, 440 , 1 75 , 4 , 523 , 466 , 262 ,4,104 
7,440 ,175 

920 DATA 4,880,523,175,4,698 
, 349 , 220 , 4 , 659 , 349 , 233 , 2 , 587 
, 349 , 233 , 4 , 932 , 587 , 1 96 
930 DATA 4,880,523,262,4,698 
, 440 , 262 , 4 , 784 , 466 ,131,2, 698 
,440 ,175 
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VISUAL VALENTINE 



Undoubtably the most unique Valentine you will ever give (or recieve!) Designed to be personalized and 
forever reusable. Guaranteed to return a kiss! The use of the speech synthesizer really adds to the fun, but the 
progran can run without speech by eliminating lines #190 & #570. 



100 REM 

110 REM * VALENTINE » 

120 REM * TI BASIC * 

130 REM *BY BOB WARTMAN* 

140 REM »PARK HILLS,KY.* 

150 REM *C0PYRI6HT 1983* 

160 REM **************** 

170 CALL CLEAR 

180 REM **INITIALIZE** 

190 OPEN #1 SPEECH" , OUTPUT 

200 CALL SCREEN<16) 

210 CALL CHAR<33,''C0E070381C 

0E0703"> 

220 CALL CHAR(34,"0103070F1F 
3F7FFF'') 

230 CALL CHAR<48, "42E7FFFF7E 
SCIBIB") 

240 CALL C0L0R(2,2,2> 

250 CALL C0L0R<3,7,16) 

260 REM ** INPUT NAMES** 

270 PRINT TAB<6) ;''WHAT IS YO 

UR NAME ?":::::::::::: 

280 INPUT YN* 

290 CALL CLEAR 

300 PRINT " AND YOUR VALENTI 

NES NAME ?":::::::::::: 

310 INPUT Kfm 

320 CALL CLEAR 

330 REM **SMALL HEARTS** 

340 FOR A=l TO 24 

350 CALL HCHAR(A, 1 ,48,32) 

360 CALL SOUNDd ,500+A*40,0) 

370 NEXT A 

380 REM **LARGE HEART** 

390 A=0 

400 READ B,C 

410 IF B=l THEN 460 

420 IF B=0 THEN 490 

430 CALL HCHAR<A,B,32,C) 

440 CALL S0UND<C,-7,1 ) 

450 GOTO 400 

460 A=A+1 

470 GOTO 430 

480 REM **MESSAGES** 

490 READ M*,X,Y 

500 IF M*=*'VN" THEN 590 

510 IF M*=''YN'' THEN 620 

520 IF M*="END" THEN 650 




530 FOR 1=1 TO LEN(M*) 

540 CALL HCHAR<X,Y+I ,ASC<SEG 

*<M*,I ,1))) 

550 CALL SOl^Dd ,3000,1) 

560 NEXT I 

570 PRINT #1 :M* 

580 GOTO 490 

590 M*=VN* 

600 Y=<32-LEN<W*))/2 
610 GOTO 530 
620 M*=YN* 

630 Y=(32-LEN<YN*))/2 

640 GOTO 530 

650 FOR DELAY=1 TO 100 

660 NEXT DELAY 

670 REM **ARROW** 

680 A=l 

690 C=4 

700 F=6000 

710 V/»=30 

720 FOR C0UNT=1 TO C 
730 CALL HCHAR<A,A+4,33) 
740 CALL SOUND<100,F,'v',-4,V) 
750 A=A+1 

760 IF A=23 THEN 830 

770 F=F-200 

780 «v»=V-3 

790 NE>rr COUNT 

800 A=17 

810 C=6 

820 GOTO 720 



103 



830 


REM **ARROWHEAD*» 


950 DATA 31,2,1,3,31,2,1,2,3 


840 


CALL HCHAR( 19,26,34) 


2, 1 , 1 ,2,32, 1 , 1 ,3,31 ,2, 1 ,3,31 


850 


FOR C=l TO 3 


,2, 1 ,4,30 ,3, 1 ,4,30 


860 


CALL HCHARC 19+C,26-C,34) 


960 DATA 3,1,5,29,4,1,6,28,5 


870 


CALL HCHAR<19+C,27-C,40, 


,1 ,7,27,6,1 ,8,26,7,1 ,9,25,8, 

7 7 7 77 77 77 7 7 77 


C> 




1 , 1 1 ,23,10 , 1 , 12 


880 


NEXT C 


970 DATA 22,11,1,13,21,12,1, 


890 


CALL SOUND ( 1,-7,0) 


14,20,13,1,15,19,14,1,16,18, 


900 


FOR DELAY=1 TO 5000 


15,1 ,16,18,15,0,0 


910 


NEXT DELAY 


980 REM ««MESSAGE DATA** 


920 


END 


990 DATA "BE" ,5,9, "MINE" ,6,8 


930 


REM *LARGE HEART DATA* 


,"I" ,4,24, "LOVE" ,5,23, "YOU" , 


940 


DATA 1 ,8,12,11 ,26,7,1 ,7, 


6,23, "MN" ,9,1 


14, 


7, 27, 6, 1,5, 15, 5, 29, 4, 1,4, 


1000 DATA "BE MY VALENTINE", 


16, 


3,30,3,1 ,3,17,1 


11, 9, "WITH LOVE" ,13,12, "YN" , 






15,1 , "END" ,0,0 



BLACK JACK 

The popularity of this card game is seemingly endless. As a computer game it's sure to fascinate players even 
morel And there's no worry about what's up the dealers' sleeve either! 

100 REM ***************** 
110 REM * BLACKJACK * 
120 REM * TI BASIC * 
130 REM * BY TOM Ritf^JCHY * 
140 REM *CINCINNATI jOHIO* 
150 REM * COPYRIGHT 1983* 
160 REM ***************** 
170 REM **INITIALIZE** 
180 RANDOMIZE 
190 CALL CLEAR 
200 CALL SCREEN(13) 
210 FOR T=2 TO 8 
220 CALL C0L0R<T,2, 16) 
230 NEXT T 

240 CALL C0L0R(9,9, 16) 
250 CALL COLOR( 10 ,2, 16) 
260 CALL COLOR< 13,2,9) 
270 CALL C0L0R(14,2,16) 
280 CALL C0L0R<16,16,16) 
290 CALL CHAR (42,"") 
300 CALL CHAR< 102, " 183C7EFFF 
F7E3C18" ) 

310 CALL CHAR< 103, "0066FFFFF 
F7E3C18" ) 

320 CALL CHAR( 104, " 183C7EFFF 
FDB9918") 

330 CALL CHAR< 105, "3C3C18FFF 
FDB1818" ) 

340 CALL CHAR< 128, "FFFFFFFFF 
FFFFFFF" > 

350 CALL CHAR( 12?, " 182442818 
1422418" ) 

360 CALL CHAR(140 , "004C52525 
2524C" ) 




370 CALL CHAR< 141 ,"000404040 
4044438") 

380 CALL CHAR< 142, "003844444 
4544834") 

390 CALL CH^R< 143, "004448506 
0504844") 
400 X=10 
410 Y=6 

420 A*="B L A C K J A C K" 
430 GOSUB 1930 
440 CALL HCHAR(8,5, 128,21 ) 
450 CALL VCHAR(9,5,128,3) 



IOI4 



468 CALL UCHAR(9,25, 128,3) 
478 CALL HCHAR( 12,5, 128,21) 
488 FOR T=l TO 1888 
498 NEXT T 
588 CALL CLEAR 
518 REM ** INSTRUCT IONS** 
528 CALL SCREEN<16) 
538 PRINT "THIS IS A GAME OF 
BLACKJACK OR TWENTY-ONE WHE 
RE THE" 

548 PRINT "PLAYER TRIES TO 6 
ET CLOSER " 

558 PRINT "TO 21 THAN THE DE 
ALER WITH- OUT GOING OVER. R 
E6ULAR" 

568 PRINT "CARDS ARE WORTH F 
ACE VALUE," 

578 PRINT "FACE CARDS ARE WO 
RTH 18, ANDACES ARE WORTH 1 
WHEN THE" 

588 PRINT "CURRENT CARD TOTA 
L IS MORE" 

598 PRINT "THAN 1 8 , OR 11 WHE 
N THE CARD TOTAL I S 1 8 OR LE 
SS. THE" 

688 PRINT "PLAYER HAS THE OP 
TION OF" 

618 PRINT "STANDING ON HIS F 
IRST TWO CARDS OR DRAWING 
ANOTHER BY" 

628 PRINT "TAKING A HIT. THE 

PLAYER CAN" 
638 PRINT "TAKE UP TO 3 HITS 

BUT GOING OVER 21 MEANS LOS 
ING HIS BET" 

648 PRINT "IF THE PLAYER TaK 
ES 5 HITS" 

658 PRINT "WITHOUT BUSTING 
R GETS 21 ON THE FIRST 2 Crt 
RDS,HE WINS" 

668 PRINT "DOUBLE-DEALER WIN 

S ALL TIES." 

678 CALL KEY<8,K,S> 

688 IF S=8 THEN 678 

698 CALL CLEAR 

788 CALL SCREEN ( 13) 

718 TOTAL=1000 

728 CALL CLEAR 

738 IF TOTAL >=1 THEN 858 

748 REM **OUT OF CHIPS** 

750 CALL CLEAR 

768 CALL SCREEN(16) 

778 PRINT "SORRY — NO MORE CH 

IPS" :::::: 



788 PRINT "WOULD YOU LIKE TO 
: (DSTART OVER AGA 

IN WITH" 

798 PRINT "NEW CHIPS, OR 

<2)QUIT" 
808 INPUT " " :PLAY 
818 IF (INT<PLAY)<>PLAY)+<PL 
AY<1 )+(PLAY>2)<8 THEN 888 
828 CALL SCREEN<13) 
838 ON PLAY GOTO 718,1918 
840 REM **TAKE BET** 
850 PRINT "YOU*HAVE*" ;STR*<T 
OTAL) ; "*CHIPS*LEFT" 
860 PRINT "HOW*MANY*CHIPS*WO 
ULD Y0U*LIKE*T8*BET?" 
878 INPUT " " :BET 
880 IF ( INT(BET)=BET)+(BET>= 
1 )+(BET<=T0TAL)=-3 THEN 938 
890 CALL CLEAR 

900 INPUT " BET*AGAIN ":BE 
T 

910 GOTO 880 

920 REM **SET SCREEN** 

930 CALL CLEAR 

940 X=5 

950 Y=4 

960 A*=" DEALER" 

970 GOSUB 1930 

980 FOR R=7 TO 13 

990 CALL HCHAR<R,3, 129,5) 

10 00 NEXT R 

1010 X=7 

1020 Y=9 

10 30 GOSUB 1990 

10 40 X=15 

10 50 Y=4 

1060 A*=" PLAYER" 
10 70 GOSUB 1930 
10 80 Y=13 

1090 A*="BET*IS*"&:STR*<:BET)& 
" *CHIP"&CHR*( (BETOl >*(-51 ) + 

32) 

1100 GOSUB 1930 

1110 X=17 

1 1 20 Y=3 

1130 GOSUB 1990 

1140 Y=9 

1150 GOSUB 1990 

1160 PCARDS=0 

1170 DCARDS=0 

I 1 80 X= 1 8 

1 1 90 Y=4 

1200 GOSUB 2080 

1210 Y=10 
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122e GOSUB 2088 

1238 DCARDS=INT(RND*10)+2 

1240 Z=DCARDS 

1258 X=8 

1260 Y=10 

1270 GOSUB 2280 

1280 REM **BLACKJACK TEST** 

1290 IF DCARDS>20 THEN 2450 

1300 IF PCARDS>20 THEN 2710 

1310 REM **CONTROL LOOP** 

1320 A==0 

1330 X=18 

1340 Y=10 

1350 INPUT " HIT< 1 )*OR*STAND 
<2) "iHOS 

1360 CALL HCHAR(23,1 ,32,64) 
1370 A=A+1 

1380 IF H0S=2 THEN 1490 

1390 X=X-2 

1400 Y=Y+5 

1410 GOSUB 1990 

1420 X=X+1 

1430 Y=Y+1 

1440 GOSUB 2080 

1450 IF PCARDS>21 THEN 2808 

1460 IF A=3 THEN 2880 

1470 GOTO 1350 

1480 REM **DEALER PLAYS** 

1490 FOR T=<7-A)T0 <13-A) 

1500 CALL HCHAR<T,3,32,5) 

1510 NEXT T 

1520 SUIT=INT<RND*4)+102 

1530 IF Z<11 THEN 1560 

1540 CI^R=65 

1550 GOTO 1600 

1560 IF Z<10 THEN 1590 

1570 CHAR=140 

1580 GOTO 1600 

1590 Ch^R=Z+48 

1600 X=7-A 

1610 Y=3 

1620 GOSUB 1990 

1630 CALL HCHAR(X+1 ,Y+1 ,CHAR 

) 

1640 CALL HCHAR<X+2,Y+1 jSUIT 
) 

1650 CALL HCHAR<X+4,Y+3,CHAR 
) 

1660 CALL HCHAR<X+5,Y+3,SUIT 
> 

1670 IF DCARDS>=17 THEN 1880 

1680 X=7-A 

1690 Y=15 

1700 GOSUB 1990 



1718 X=8-A 

1728 Y=16 

1738 GOSUB 2288 

1748 IF DCARDS>=17 THEN 1888 

1758 X=7-A 

1768 Y=21 

1778 GOSUB 1998 

1788 X=8-A 

1798 Y=22 

1888 GOSUB 2288 

1818 IF DCARDS>=17 THEN 1888 

1828 X=7-A 

1838 Y=27 

1848 GOSUB 1998 

1858 X=8-A 

1868 Y=28 

1878 GOSUB 2288 

1888 IF DCARDS>21 THEN 2988 

1890 IF DCARDS<PCARDS THEN 2 

980 

1900 GOTO 3070 
1910 END 

1920 REM **PRINT AT** 
1930 FOR T=l TO LEN<A*> 
1940 A=ASC(SE6*<A*,T,1)) 
1950 CALL HCHAR<X,<Y+T) ,A) 
I960 NEXT T 
1970 RETURN 

1980 REM **DRAW BLANK CARD** 
1998 CALL HCHAR<X,Y, 128,5) 
2000 CALL UCHAR<<X+1) ,Y,128, 
5) 

2010 CALL UCHAR(<X+1) ,<Y+4) , 
128,5) 

2020 CALL HCHAR(<X+6) ,Y,128, 
5) 

2030 FOR 0=1 TO 3 

2040 CALL 'v'CHAR<X+l ,Y+Q,152, 

5) 

2050 NEXT Q 
2060 RETURN 

2070 REM **PLAYER'S CARD** 
2080 PIP=INT(RND*13)+1 
2090 SUIT=INT<ra>ID*4) + 102 
2100 IF <PIP>l)+<PIP<10)=-2 
THEN 2110 ELSE 2140 
2110 PCARDS=PCARDS+PIP 
2120 CHAR=PIP+48 
2130 GOTO 2220 
2140 IF PIP>9 THEN 2200 
2150 IF PCARDS>10 THEN 2170 
2160 PCARDS=PCARDS+ 1 
2170 PCARDS=PCARDS+ 1 
2180 CHAR=65 
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2198 GOTO 2220 

2289 PCARDS=PCARDS+ 1 8 

2218 Cf*s»R=PIP+138 

2228 CALL HCHAR<X , Y , CHAR) 

2238 CALL HCHAR<X+ 1 , Y , SUIT) 

2248 CALL HCHAR<X+3 ,Y+2 , CI^R 

) 

2258 CALL HCHAR<X+4 ,Y+2 , SUIT 
) 

2268 RETURN 

2278 REM »*DEALER'S CARD** 

2288 PIP=INT<RND*13)+1 

2298 SUIT=INT<RND*4)+182 

2388 IF <PIP>l)+<PIP<18)=-2 

THEN 2318 ELSE 2348 

2318 DCARDS=DCARDS+PIP 

2328 CHAR=PIP+48 

2338 GOTO 2428 

2348 IF PIP>9 THEN 2488 

2358 IF DCARDS>18 THEN 2378 

2368 DCARDS=DCARDS+ 1 8 

2378 DCARDS=DCARDS+ 1 

2388 C^^R=65 

2398 GOTO 2428 

2488 DCARDS=DCARDS+ 1 8 

2418 CHAR=PIP+138 

2428 GOSUB 2228 

2438 RETUravJ 

2448 REM *DEALER BLACKJACK* 

2458 FOR T=l TO 388 

2468 NEXT T 

2478 FOR X=7 TO 13 

2488 CALL HCKb^iRCX , 3 , 32 , 5) 

2498 NEXT X 

2588 X=7 

2518 Y=3 

2528 GOSUB 1998 

2538 SUIT=INT<RND*4)+ie2 

2548 IF Z=ll THEN 2578 

2558 CHA=INT<RND*4)+14e 

2568 GOTO 2588 

2578 01^65 

2588 CALL HCh^R<X+ 1 , Y+ 1 , CHA) 
2598 CALL HCHAR<X+2 , Y+ 1 , SUIT 
) 

2688 CALL HCHAR<X+4 , Y+3 , CHA) 
2618 CALL HCHAR(X+5, Y+3, SUIT 
) 

2628 FOR T=l TO 288 

2638 NEXT T 

2648 CALL CLEAR 

?658 CALL SCREEN(16) 

2668 PRINT "DEALER BLACKJACK 



2678 PRINT "NO WlhWERS" 

2688 TOTAL=TOTAL-BET 

2698 GOTO 3148 

2788 REM *PLAYER BLACKJACK* 

2718 FOR T=l TO 388 

2728 NEXT T 

2738 CALL CLEAR 

2748 CALL SCREEN<16) 

2758 PRINT "BLACKJACK! ! ! ! " 

2768 PRINT "YOU WIN";<BET*2) 

;"CHIPS! " 

2778 T0TAL=T0TAL+<2*BET) 

2788 GOTO 3148 

2798 REM *PLAYER BUSTS* 

2888 FOR T=l TO 588 

2818 NEXT T 

2828 TOTAL=TOTAL-BET 

2838 CALL CLEAR 

2848 CALL SCREEN<16) 

2858 PRINT " YOU BUSTED — YOU 

LOSE" 
2868 GOTO 3148 
2878 REM **5 CARDS WITHOUT 

BUSTING** 
2888 FOR T=l TO 288 
2898 NEXT T 
2988 CALL CLEAR 
2918 CALL SCREEN<16) 
2920 PRINT "CONGRATULATIC»NlS! 

2938 PRINT "YOU GOT A 5-CARD 

CHARLIE" 
2948 PRINT "YOU WIN";<BET*2) 
;"CHIPS! " 

2958 T0TAL=T0TAL+<BET*2) 

2968 GOTO 3148 

2978 REM **PLAYER BEATS 

DEALER** 
2988 FOR T=l TO 1888 
2998 NEXT T 
3880 TOTAL=TOTAL+BET 
3010 CALL CLEAR 

3020 CALL SCREEN<16) 

3030 PRINT "GOOD JOB — YOU WO 

N" 

3040 PRINT BET;"CHIP" ;CHR*<< 

BET<>l)*<-51)+32) 

3050 GOTO 3140 

3060 REM **DEALER BEATS 

PLAYER** 
3070 FOR T=l TO 1000 
3080 NEXT T 
3090 TOTAL=TOTAL-BET 
3100 CALL CLEAR 
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3118 CALL SCREEN<16) 

3120 PRINT "TOO BAD — YOU LOS 

T" 

3138 PRINT BET; "CHIP" ;CHR*<< 

BET<>l)*<-51)+32) 

31 48 PRINT :::::: "WOULD YOU 

LIKE TO :" 

3158 PRINT "(DPLAY ANOTHER 
HAND" 

3168 PRINT "(2) START OV^ER AG 
AIN WITH" 



3178 PRINT " NEW CHIPS, OR 

a 

3188 PRINT "<3)QUIT" 

3198 INPUT " ":PLAY 

3288 IF <INT<PLAY)<>PLAY)+<P 

LAY<1)+<PLAY>3)<8 THEN 3198 

3218 CALL SCREEN<13> 

3228 m PLAY GOTO 728,718,19 

18 



TRAP 

The object of this two player game is to have your opponent crash into a trail or the wall. There's lots of action 
and strategy since th first to crash 10 times loses. Efficient use of the keyboard or joysticks makes this game 
even easier and more fun to play. 



188 REM **************** 
118 REM * TRAP * 

128 REM * TI BASIC * 
138 REM * BY DON BUSCH * 
148 REM *CINCINNATI ,0H.* 
158 REM *C0PYRI6HT 1983* 
168 REM **************** 
178 REM *INITIALIZATIOJ* 
188 CALL CHAR<128,"FFFFFFFFF 
FFFFFFF" ) 

198 CALL CHAR < 136, "FFFFFFFFF 
FFFFFFF") 

208 CALL CHAR<129,"FFFFC3C3C 
3C3FFFF" ) 

218 CALL CHAR(127,"FFFFC3C3C 
3C3FFFF") 

228 CALL CHAR( 130 , "030303030 
3030303") 

230 CALL CHAR< 131 , "C0C0C0C0C 

0C0C0C0" ) 

240 REM ** INTRODUCTION** 

250 CALL CLEAR 

260 CALL SCREEN < 15) 

270 CALL HCHAR< 21 ,1 ,128,32) 

280 CALL HCHAR<24,1 ,128,32) 

290 CALL VCHAR<22,1 ,128,2) 

300 CALL 'v'CHAR<22,32,128,2) 

310 A*="TRAP" 

320 R=22 

330 C=14 

340 GOSUB 2100 

350 A*="BY DON BUSCH" 

360 R=23 

370 C=10 

380 GOSUB 2100 

390 PRINT :!"THE OBJECT OF T 
RAP IS TO FORCE YOUR OPPO 
NENT TO CRASH" 



400 PRINT "INTO THE WALL OR 
INTO EITHER" 

410 PRINT "OF YOUR TRAILS. S 
CORE C^E POINT EACH TIME T 
HAT" 

420 PRINT "HAPPENS. THE FIRS 
T TO SCORE" 

430 PRINT "TEN POINTS WINS. 
MOVEMENT IS AS FOLLOWS:" 
440 PRINT :" LEFT 

RIGHT":;" W^^UP 

P=UP" : : 

450 PRINT "A=LEFT L= 
LEFT":" S=RIGHT 
;=RIGHT" : 

460 PRINT " Z=DOUW 

.=DOWN " 
470 CALL UCf^R<16,16,130,8) 
480 CALL <v'Ch^R<16,17,131 ,8) 
490 PRINT " HIT ANY KEY TO 
BEGIN" 

500 CALL KEY<0,KEY,STA) 

510 IF STA=0 THEN 500 

520 CALL CLEAR 

530 REM **PLAYERS N^ES** 

540 CALL SCREEN<15) 

550 INPUT "h^E OF PLAYER ON 

RIGHT:" :PL1* 
560 IF LEN<PL1*)<=10 THEN 59 


570 PRINT "hk^E TOO LONG" 
580 GOTO 550 
590 PRINT 

600 INPUT "N^E OF PLAYER OM 

LEFT : " : PL2* 
610 IF LEN<PL2*)<=10 THEN 64 



620 PRINT "Nfii^E TOO LONG" 
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638 GOTO 608 

648 CALL CLEAR 

658 CALL SCREENdS) 

668 PRINT " HIT KEY TO 

BEGIN" :::::::::::::: 
678 CALL KEY<8,KEY,STA) 
688 IF STA=8 THEN 678 
698 CALL CLEAR 
788 REM *»DRAW SCREEN** 
718 CX=8 

728 CALL SCREEN<15) 
738 CALL COLOR< 14,7,1) 
748 CALL COLOR< 12,5,1) 
758 FOR XC=16 TO 1 STEP -1 
768 CX=CX+2 

778 CALL HCHARCl ,XC,128) 

788 CALL HCHARCl ,XC+CX-1 ,129 

) 

798 CALL HCHAR<24,XC,128) 
888 CALL HCHAR<24,XC+CX-1 ,12 
9) 

818 NEXT XC 
828 CX=24 

838 FOR XC=2 TO 12 
848 CX=CX-2 

858 CALL HCHAR<XC,1 ,128) 
868 CALL HCHAR<XC,32,129) 
878 CALL HCKfr=>R<XC+CX-l ,1 ,128 
) 

888 CALL HCHAR<XC+CX-1 ,32,12 
9) 

898 HEXJ XC 
988 R0W1=12 
918 C0L1=8 
928 RaJ2=12 
938 C0L2=25 

948 REM *PRINT CHARACTERS* 
958 CALL HCHARCROJl jCOLl ,136 
) 

968 CALL HCKAR<RaJ2,C0L2,127 
) 

978 CALL S0UND<58 ,-3,8) 
988 CALL KEY(2,K2,S2) 
998 CALL KEY<1 ,K1 ,S1) 
1888 REM **MOVEMENT** 
1818 IF SlOe THEN 1838 
1828 K1=KT 

1838 IF KlOl THEN 1868 

1848 C0L1=C0H-1 

1858 GOTO 1138 

1868 IF K104 THEN 1898 

1878 R0W1=RCW1-1 

1888 GOTO 1138 

1898 IF Kl <>2 THEN 1 1 28 



1188 C0L1=C0L1+1 
1118 GOTO 1138 
1128 R0W1=RC»a)1 + 1 
1138 KT=K1 

1148 IF S208 THEN 1168 
1158 K2=KU 

1168 IF K2012 THEN 1198 

1178 C0L2=C0L2-1 

1188 GOTO 1268 

1198 IF K2011 THEN 1228 

1288 R0W2=Ra;J2-l 

1218 GOTO 1268 

1228 IF K2017 THEN 1258 

1238 C0L2=C0L2+1 

1248 GOTO 1268 

1258 RCft02=ROW2+l 

1268 KU=K2 

1278 REM *CHECK FOR CRASH* 
1288 CALL GCHAR<RCW1 ,C0L1 ,CR 
1) 

1298 CALL GCHAR<RaJ2,C0L2,CR 
2) 

1388 IF (CR1>=127)+<CR2>=127 

)=-2 THEN 1538 

1318 IF CR1>=127 THEN 1358 

1328 IF CR2>=127 THEN 1448 

1338 GOTO 958 

1348 REM **RIGHT CRASH** 

1358 CALL S0mD<1588,-7,8) 

1368 CALL HCHAR<R0W2,C0L2,12 

7) 

1378 FOR XD=1 TO 15 

1388 CALL HCW!>R(R0W1 ,C0L1 ,32 

) 

1398 CALL HChAR<RaAJl jCOLl ,13 
6) 

1488 NEXT XD 

1418 L0S1=L0S1+1 

1428 GOTO 1628 

1438 REM **LEFT CRASH** 

1448 CALL SOl^D< 1588,-7,8) 

1458 CALL HCHAR<RCaJl ,C0L1 ,13 

6) 

1468 FOR XF=1 TO 15 

1478 CALL HCI^R<R0W2,C0L2,32 

) 

1488 CALL HCHAR(RaJ2,C0L2,12 
7) 

1498 NEXT XF 

1588 L0S2=L0S2+1 

1518 GOTO 1628 

1528 REM **BOTH CRASH** 

1538 CALL SOLND< 3888 ,-7,8) 

1548 FOR XS=1 TO 15 
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1550 CALL HCHAR<RaJl ,C0L1 ,32 
) 

1 560 CALL HCHAR < R0W2 , C0L2 , 32 
) 

1570 CALL HCHAR<RCW1 ,C0L1 ,13 
6) 

1580 CALL HCl^R<R0W2,C0L2,12 
7> 

1590 NEXT XS 
1600 TI=TI+1 

1610 REM **SCOREBOARD** 

1620 CALL CLEAR 

1630 CALL SCREEN<15) 

1640 A*=° SCORE " 

1650 R=l 

1660 C=14 

1670 60SUB 2100 

1680 A^=" " 

1690 R=2 
1700 GOSUB 2100 
1710 A*=PL2* 
1720 R=4 

1730 C=3+INT<1/2»<10-LEN<PL2 
*>)) 

1740 GOSUB 2100 
1750 A*=PL1* 
1760 R=4 

1770 C=21+INT<1/2*<10-LEN<PL 
1*))) 

1780 GOSUB 2100 

1790 A*="TIES- 

1800 R=4 

1810 C=15 

1820 GOSUB 2100 

1830 A^STR*<L0S2) 

1840 R=6 

1850 C=7 

I860 GOSUB 2100 

1870 A*=STR*<L0S1) 

1880 R=6 

1890 C=25 

1900 GOSUB 2100 

1910 A*=STR*<TI) 

1920 R=6 

1930 C=16 

1940 GOSUB 2100 



1950 REM »CHECK FOR WlhWER* 

I960 IF LOSK10 THEN 1990 

1970 C*=PL1* 

1980 GOTO 2160 

1990 IF LOS2<10 THEN 2020 

2000 C*=PL2* 

2010 GOTO 2160 

2020 A*="HIT ANY KEY TO BEGI 

N AGAIN- 

2030 R=20 

2040 C=3 

2050 GOSUB 2100 

2060 CALL KEY<0,KEY,STA) 

2070 IF STA=0 THEN 2060 

2080 GOTO 690 

2090 REM **DI SPLAY AT*» 

2100 FOR XA=1 TO LENCA*) 

2110 B^SEG*<A*,XA,1) 

2120 CALL HCHAR <R,C+XA,ASC<B 

*>) 

2130 NEXT XA 
2140 RETUf^ 

2150 REM «UIM<iING SEQUENCE* 
2160 A*=C*&" WINS! ! ! " 
2170 R=15 

2180 C=7+INT<1/2*<10-LEN<C*) 
)) 

2190 FOR XG=1 TO 5 

2200 CALL HCHAR<R,C,32,LEN<A 

*) + l> 

2210 GOSUB 2100 

2220 FOR DELAY=1 TO 100 

2230 NEXT DELAY 

2240 NEXT XG 

2250 LOS1=0 

2260 LOS2=0 

2270 TI=0 

2280 A*="HIT ANY KEY TO PLAY 

AGAIN" 
2290 R=20 
2300 C=4 
2310 GOSUB 2100 
2320 CALL KEY(0,KEY,STA) 
2330 IF STA=0 THEN 2320 
2340 GOTO 170 
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MATH CHALLENGE 



Math drills are incorporated Into a game for 1 to 10 players. The four basic math groups are used to Instill a 
little friendly competition to see who remembers their grade school math the best! 



188 REM **************** 

118 REM *l^TH CI^LLENGE* 

128 REM * TI BASIC * 

138 REM * J. 6ULICK * 

148 REM *FT.MITCHELL,KY* 

158 REM *C0PYRI6HT 1983» 

168 REM **************** 

178 CALL CLEAR 

188 DIM S(18) 

198 RfSMDOMIZE 

288 FOR 1=1 TO 55 

218 PRINT "MATH C^^LLENGEMAT 

H CHALLENGE" 

228 NEXT I 

238 CALL CLEAR 

248 INPUT "NLWBER OF PLAYERS 
<1 TO 18)" :P 

258 IF <P<1)+<P>18)=-1 THEN 
248 

268 CALL CI^R<47,''888888887F 
8888") 

278 FOR X=l TO P 

288 S<X)=8 

298 NEXT X 

388 CALL CLEAR 

318 PRINT "TYPE OF PROBLEMS 

?■ 

328 PRINT 

338 PRINT "ADDITION-SUBTRACT 

ION <1) MULTIPLICATIC^-DI 

VISIOxJ <2)" 

348 PRINT -CCWBINATION 

<3)" 

358 PRINT ■'■'•■'"■BB:''<*2C°; 
368 INPUT T 

378 IF <T<1 )+<T>3)=-l THEN 3 
88 

388 Ot4 T 60SUB 498,788,1888 

398 REM ** END & SCORE 

488 CALL CLEAR 

418 PRINT "GmE OVER." 

428 PRINT "SCORES WERE:" 

438 FOR X=l TO P 

448 PRINT "PLAYER #";X;" GOT 

";S<X);" CORRECT" 
458 NEXT X 

468 INPUT "PLAY AGAIN < <Y> 
R <N>)" :Q* 

478 IF ASC<Q*)=89 THEN 178 
480 END 



498 REM ADDITION-SUBTRACTION 

588 FOR R=l TO P 

518 CALL CLEAR 

528 PRINT "PLAYER tt" ;R 

538 FOR B=l TO 18 

548 N=INT<RND*2)+1 

558 ON N GOSUB 648,718 

568 IF I=A THEN 598 

578 PRINT "WRONG." 

588 GOTO 618 

598 PRINT "RIGHT ! ! ! " 

688 S<R)=S<R)+1 

618 NEXT B 

628 NEXT R 

638 RETURN 

648 REM ** ADDITION ** 
658 Q=INT<RND*18)+1 
668 L=INT<RND*18)+1 
678 A=Q+L 

688 PRINT 0;"+" ;L;"=" ; 
698 INPUT I 
788 RETURN 

718 REM ** SUBTRACTION ** 
728 Q=INT<RND*18)+1 
738 L=INT(RND*Q)+1 
748 A=Q-L 

758 PRINT Q;"-" ;L;"=" ; 
768 INPUT I 
778 RETURN 

788 REM ** MULTIPLICATION & 

DIMISICM ** 

798 FOR R=l TO P 

888 CALL CLEAR 

818 PRINT "PLAYER" ;R 

828 FOR B=l TO 18 

838 N=INT<F^D*2) + 1 

848 ON N GOSUB 938,1888 

858 IF I=A THEN 888 

868 PRINT "WRONG." 

878 GOTO 988 

888 PRINT "CORRECT !!!!!" 
898 S<R)=S<R)+1 
988 NEXT B 
918 NEXT R 
928 RETURN 

938 REM MULITI PLICATION * 
948 Q=INT<RND*18)+1 
958 L=INT<RND*18)+1 
968 A=Q*L 

978 PRINT Q;"x" ;L;"=" ; 
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988 INPUT I 
990 RETURN 

1000 REM ** DIVISION *» 
1010 Q=INT<RND*15)+1 
1020 L=INT<RND*5)+1 
1030 A=INT<Q/L) 
1040 PRINT Q;"/" ;L;"=" ; 
1050 INPUT I 
1060 I=INT<I> 
1070 RETURN 

1080 REM ** COMBINATION ** 
1090 FOR R=l TO P 
1100 CALL CLEAR 



1110 PRINT "PLAYER" ;R 

1120 FOR 8=1 TO 10 

1130 N=INT<RND»4)+1 

1140 ON N GOSUB 640,710,930, 

1000 

1150 IF I=A THEN 1180 

1160 PRINT "WRONG." 

1170 GOTO 1200 

1180 PRINT "CORRECT !!!!!!" 

1190 S<R)=S(R)+1 

1200 NEXT B 

1210 NEXT R 

1220 RETURN 



STRANDED 



It's gonna be tough, but at least you have a chance to win enough money to get out of this shady Casino and 
back home. Who knows, maybe you'll have some money left to throw a party once you get back - if you get 
back! Let 'em roll! 



100 REM ****************** 

110 REM * STRANDED * 

120 REM * TI BASIC » 

130 REM * PHIL TAYLOR * 

140 REM *H0LLAND,MICHI6AN* 

150 REM * COPYRIGHT 1983 » 

160 REM ****************** 

170 CALL CLEAR 

180 RANDOMIZE 

190 CALL SCREEN<16) 

200 CALL C0L0R(9,7,6) 

210 CALL COLOR< 12,8,6) 

220 CALL COLORC 14,6,2) 

230 CALL COLOR< 15,2,6) 

240 CALL C0L0R<16,11 ,6) 

250 K*="FFFFFFFFFFFFFFFF" 

260 L*="00070F1F3F7F7F7F" 

270 M*="7F7F7F3F1F0F07" 

280 N*="00E0F0F8FCFEFEFE" 

290 P*="FEFEFEFCF8F0E0" 

300 CALL CHAR(128,K*) 

310 CALL CHAR(136,K*) 

320 CALL COLOR< 15,2,6) 

330 CALL CHAR<144,K*) 

340 CALL COLOR< 12,8,6) 

350 CALL CI^R<127,K*) 

360 CALL C0L0R(16,11 ,6) 

370 CALL CI^R<152,K*) 

380 CALL COLOR < 9, 7, 6) 

390 CALL CHAR < 96, K*) 

400 CALL CHAR<104,"FFFF24FF2 

4FF24FF") 

410 CALL CHAR<105,L*) 
420 CALL CHAR<106,M*) 



430 CALL CHAR<107,N*) 

440 CALL CHAR<108,P*) 

450 CALL CHAR(129,L*) 

460 CALL CHAR<130,M*) 

470 CALL CHAR<131,N*) 

480 CALL CHAR<132,P*) 

490 CALL CHAR<137,L*) 

500 CALL CHAR<138,M*) 

510 CALL CHAR<139,N*) 

520 CALL CHAR<140,P*) 

530 PRINT TAB(8) ;"***STR<aa^iDE 

D***" :::::::::::::::::: 

540 GOSUB 1580 

550 INPUT "WANT INSTRUCTIONS 
? (Y/N)" :A* 

560 IF A*="Y" THEN 1450 
570 CALL CLEAR 
580 INPUT "ENTER YOUR h^E 
" :B* 

590 REM **GAME** 
600 M=500 
610 CALL CLEAR 
620 GOSUB 1860 
630 PRINT "YOU HAVE *" ;M 
640 INPUT "WHAT IS YOUR BET? 
* " :C 

650 IF OM THEN 1150 

660 PRINT "YOUR BET OF *";C; 

■HAS BEEN PLACED " ;B* 

670 INPUT "CHOOSE A NmBER? 

(1-6)? " :D 

680 IF <D<1 )+(D>6)=-l THEN 6 
80 

690 CALL CLEAR 
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708 GOSUB 1588 

718 PRINT CENTER THE TYPE OF 

ROLL : " : : 
728 PRINT TABO);^) EASY RO 
LL" 

738 PRINT TAB<3>;"2) NORMAL 
ROLL- 

748 PRINT TAB<3);''3) HARD RO 
LL« : : 

758 INPUT "ENTER YOUR CHOICE 
? " :A 

768 IF A>3 THEN 798 
778 IF A=8 THEN 798 
788 GOTO 888 

798 INPUT "ENTER 1 - 3? " :A 
888 CALL CLEAR 
818 GOSUB 1588 

828 PRINT "LET THE DICE ROLL 

I I I I I n ■ . 
• . > > • ■ • 

838 GOSUB 1888 
848 S=INT<RND*6)+1 
858 T=INT<ra^D*6)+l 
868 U=INT<RND*6)+1 
878 V=8 

888 IF SOD THEN 988 
898 V=V+1 

988 IF TOD THEN 928 
918 V=V+1 

928 IF UOD THEN 948 
938 V=t^+1 

948 PRINT "DIE 1 = " ;S 

958 PRINT "DIE 2 = " ;T 

968 PRINT "DIE 3 = " ;U 

978 PRINT "YOU hfeV^E MATCHED 

";V;" DICE." 

988 IF ^=8 THEN 1888 

998 ON V GOTO 1838,1898,1128 

1888 PRINT "YOU LOSE * " ;C 

1818 M=M-C 

1828 GOTO 1288 

1838 PRINT "YOU WIN * " ;C 

1848 M=M+C 

1858 GOTO 1288 

1868 PRINT "YOU WIN * ";C 

1878 M=M+C 

1888 GOTO 1288 

1898 PRINT "YOU WIN * -;C*2 

1188 M=M+<C«2> 

1118 GOTO 1288 

1128 PRINT "YOU WIN * " ;C*3 

1138 M=M+<C*3) 

1148 GOTO 1288 

1158 REM **BET IS TOO HIGH** 
1168 PRINT "YOUR BET WAS *" ; 
C;"BUT YOU ONLY HAUE *" ;M 



1178 FOR DELAY=1 TO 488 

1188 NEXT DELAY 

1198 GOTO 638 

1288 REM **END OF ROUND** 

1218 INPUT "WANT TO ROLL A(^ 

IN? <Y/N>" :A* 

1228 IF A*="N" THEN 1368 

1238 CALL CLEAR 

1248 IF M=8 THEN 1398 

1258 IF M>=1588 THEN 1278 

1268 GOTO 628 

1278 REM **HAVE WCW *1888** 
1288 H=M-1588 

1298 PRINT "YOU mKfE ENOUGH 
TO GO HOME.": "DO YOU WfWT TO 

PURCHASE A" 
1388 INPUT "TICKET?<Y/N)" :T* 
1318 IF T*="N" THEN 618 
1328 M=M-1588 
1338 IF M=8 THEN 1358 
1348 GOTO 1378 

1358 PRINT "HAVE A GOOD TRIP 
. BYE ! ! ! " 
1368 END 

1378 PRINT "YOU NOW HAVE * " 
;M 

1388 GOTO 1358 

1398 REM **OUT OF MONEY** 

1488 PRINT "WHO ARE YOU KIDD 

ING? YOU'RE OUT OF MONEY ";B 

«:::::::: 

1418 FOR DELAY=1 TO 1888 
1428 NEXT DELAY 
1438 GOTO 1368 
1448 REM ** INSTRUCT I C»«JS** 
1458 CALL CLEAR 
1468 PRINT " YOU ARE A HIGH 
ROLLER" :"STRr=^DED IN LAS VE 
GAS TRYING" 

1478 PRINT "TO WIN ENOUGH MO 
NEY TO GET" : " H01E . " : : 
1488 PRINT " YOUR PLANE TIC 
KET WILL": "COST ^1588 - BUT 
YOU HAVE" 

1498 PRINT "ONLY *588 . YOU M 
UST WIN THE" 

1588 PRINT "ADDITIONAL *1888 

. ■ . 

1510 PRINT " THREE DICE WIL 
L BE ROLLED": "AND YOU TRY TO 

MATCH THE" 
1528 PRINT "DICE BY PICKING 
A Nl^BER" 

1538 PRINT "FROM 1 - 6. 1 MA 
TCH PAYS": "EVEN MONEY, 2 MAT 
CHES PAYS" 
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1540 PRINT "DOUBLE, AND 3 m 
TCHES PAYS" : "TRIPLE." : s 
1550 PRINT TAB< 10) ; "GOOD LUC 
K! " : : 



1560 INPUT " (PRESS ENTER TO 
CONTINUE)" !A* 



1570 


GOTO 


570 






1580 


REM *MAKE GAME TABLE* 


1590 


CALL 


COLOR< 13 


,10 


,16) 


1600 


CALL 


HCHAR<12 


,5, 


128,25) 


1610 


CALL 


HCHAR<20 


,5, 


128,25) 


1620 


CALL 


VCHAR<12 


,5, 


128,8) 


1630 


CALL 


'^CHAR<12 


,29 


,128,8) 


1640 


CALL 


HCHAR(13 


,6, 


136,23) 


1650 


CALL 


HCHAR<14 


,6, 


136,22) 


1660 


CALL 


HCHAR<15 


,6, 


136,22) 


1670 


CALL 


HCHAR(16 


,6, 


136,22) 


1680 


CALL 


HCHARC 17 


,6, 


136,22) 


1690 


CALL 


HCHAR<18 




136,22) 


1700 


CALL 


HCHAR<19 




136,23) 


1710 


CALL 


HCHAR<14 


,10 


,144) 


1720 


CALL 


HCHARdS 


,22 


,144) 


1730 


CALL 


HCHAR(14 


,14 


,127) 


1740 


CALL 


HCHARdS 


,18 


,127) 


1750 


CALL 


HCHARC 14 


,18 


,152) 


1760 


CALL 


HCHARdS 


,14 


,152) 



1770 CALL HCHAR< 14,22,96) 
1780 CALL HCrt2iRd8,10,96) 
1790 RETURN 

1800 REM **ROLL DICE** 
1810 CALL COLOR<10,16,6) 
1820 CALL HCHAR< 12,7, 104) 
1830 CALL HCHARd4,8,104) 
1840 CALL HCHARd6,7,104) 
1850 RETURN 

I860 REM **DRAW CHIPS** 
1870 CALL COLORd0,16,2) 
1880 CALL HCHAR< 18,5, 105) 
1890 CALL HChb!i»Rd9,5,106) 
1900 CALL HCHARdS, 6, 107) 
1910 CALL HC»^Rd9,6,108) 
1920 CALL C0L0Rd3,9,2) 
1930 CALL HCI^Rd8,7,129) 
1940 CALL HCHARd9,7,130) 
1950 CALL HCHAR<18,8,131) 
I960 CALL HCHARd9,8,132) 
1970 CALL HCKk2»R< 18,9, 137) 
1980 CALL HCHARd9,9,138) 
1990 CALL HCHAR< 18,10,139) 
2000 CALL HCHAR<19,10,140) 
2010 RETURN 



LAS VEGAS LUCK 



The graphics in this program are so good that you might actually begin to believe you're in Vegas! You control 
the force with which the handle is pulled, and unlil<e Vegas, the odds are in your favor! Just one more thing - 
don't hold your breath for the nickels to come falling our of your monitor! 
100 REM***************** 



110 

120 
130 
140 
150 
160 
170 
180 
190 

200 

210 
220 
230 
240 



REM*LAS ^EGAS LUCK * 
REM* TI BASIC * 
REM*RICHARD PROCTOR* 
REM* DAYTON OHIO * 
REM*COPYRIGHT 1983 * 
REM***************** 
CALL CLEAR 
CALL SCREENd6) 
RANDOMIZE 
FOR G=l TO 16 
READ C 

CALL C0L0R<G,C,16) 
NEXT G 

DATA 7,7,5,5,5,5,5,7 
11 ,13,13,2,6,9,9 
250 PRINT » 
AS" : : : 

260 PRINT " LUCK" 



1 1 



LAS UEG 



270 PRINT 
HEN READY" 



PRESS ANY KEY Ul 



280 CALL CHAR< 62, " 1893179765 
ACD672") 

290 FOR 1=3 TO 30 

CALL HCHARd ,1 ,62) 
NEXT I 

FOR 1=1 TO 24 
CALL k/'CHAR< I ,30 ,62) 
NEXT I 

FOR 1=30 TO 3 STEP -1 
CALL HCHAR(24,I ,62) 
NEXT I 

FOR 1=24 TO 1 STEP -1 
CALL MCHAR< I ,3,62) 
NEXT I 

DEF XX=INTd4*RND+2) 
CALL KEY<0,K,S) 
CALL C0L0R<4,XX, 1 ) 
CALL COLOR < 4,1 ,XX) 
IF S=0 THEN 420 
CALL CLEAR 



300 

310 
320 
330 
340 
350 
360 
370 
380 
390 

400 

410 
420 
430 
440 
450 
460 
470 



Ilk 



480 PRINT " LAS 'v^EGA 

S" : : 

490 PRINT " YOU ARE TH 

ERE" : : ! : 

500 PRINT "TRY YOUR LUCK AND 
SEE IF YOUCAN BE A WINNER. 
CAREFUL" 

510 PRINT "THIS CAN BE HABIT 
F0F»iIN6. " 

520 PRINT "CHOOSE THE FORCE 

WITH WHICH TO PULL THE HANDL 

E BY" 

530 PRINT "SELECTING NUMBERS 

1 TO 9, " : : : : 
540 PRINT " GOOD LUC 

K" : s : : : 

550 REM CREATE SLOT MACHINE 
560 A*="FFFFFFFFFFFFFFFF" 
570 CALL CHAR08, "071F3F7F7F 
FFFFFF") 

580 CALL CHAR<34, "E0F8FCFEFE 
FFFFFF" ) 

590 CALL CHAR<35, "3C7EFFFFFF 
FF7E3C") 

600 CALL CHAR( 106, "3C3C3C3C3 
C3C3C3C" ) 

610 CALL CHAR< 107, "003C42023 
C40407E") 

620 CALL CHAR< 108, "007E407C0 
202423C" ) 

630 CALL CHAR< 109, " 101028404 
0281010" ) 

640 CALL CHAR( 1 10 , "FFFFFF7F7 
F3F1F07" ) 

650 CALL CHARClll ,"FFFFFFFEF 
EFCF8E0 " ) 

660 CALL CHAR(133,A*> 

670 CALL CHAR ( 134, "071 F3F7F7 

FFFFFFF") 

680 CALL CHAR( 135, "E0F8FCFEF 
EFFFFFF") 

690 CALL CHAR (158, A*) 

700 REM CREATE HEART 

710 CALL CHAR< 144, "000000000 

3070F1F" > 

720 CALL CHAR( 145, "000000F0F 
8FCFCFE") 

730 CALL CHAR< 146, "0000000F1 
F3F3F7F") 

740 CALL CHAR< 147, "00000080C 
0E0F0F8" ) 

750 CALL CHAR< 148, " 1F3F3F3F3 
F3F1F1F") 

760 CALL CHAR<149,A*) 



770 CALL CHAR ( 150 , "F8FCFCFCF 
CFCF8F8") 

780 CALL CHAR< 151 , "0F0F07070 
301") 

790 CALL CHAR<152,"FFFFFFFFF 
FFFFF7F" ) 

800 CALL CHAR(153,"FFFFFFFFF 
FFFFFFE") 

810 CALL CHAR<154,"F0F0E0E0C 
08") 

820 CALL CHAR( 156, "3F1F07030 
1") 

830 CALL CHAR(157,"FCF8E0C08 

" ) 

840 REM CREATE CHERRY 



00001C" ) 

860 CALL 
0000F0" ) 
870 CALL 
070F0F" ) 
880 CALL 
890 CALL 
F8F3FF" ) 
900 CALL 

000080" ) 

910 CALL 
0F0F0F" ) 
920 CALL 
E0C0C0") 
930 CALL 
940 CALL 
0F" ) 

950 CALL 
E") 



970 REM CREATE BELL 

980 CALL CHAR< 129, "000000000 

3030303" ) 

990 CALL CHAR( 130 , "00000000C 

0C0C0C0") 

1000 CALL CHAR( 131 , "03030303 
0303070F" ) 

1010 CALL CHAR( 132. "C0C0C0C0 
C0C0E0F0" ) 

1020 CALL CHAR(136,"1F3F3F3F 
3F3F3F3F") 

1030 CALL CHAR < 137, "F8FCFCFC 
FCFCFCFC" ) 

1040 CALL CHAR( 138, "7FFFFF7F 
3F0303" ) 

1050 CALL CHAR( 139, "FEFFFFFE 
FCC0C" ) 

1060 REM CREATE LEMON 



CHAR<41 , 


"0000000000 


CHAR(43, 


"0000000000 


CHAR (42, 


"0001030307 


CHAR (40 


,A*) 


CHAR(37 


, "81C3E6ECF8 


CHAR (47 


, "E000000000 


CHAR (88, 


"0F1F1F1F1F 


CHAR (95, 


"C0C0E0E0E0 


CHAR (90 , 


"070703" ) 


CHAR(91 , 


"FFFFFFFF7F 


CHAR (92, 


"FFFFFFFEF8 


CHAR (93, 


"808") 
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1070 CALL CHAR( 97, "800000000 
0000 73F" ) 

10S0 CALL CHAR<98, "000000000 

00«EejFC" > 

109V3 CALL CHAR<?9 , "0001030 70 

70F3F7F" ^ 

1100 CALL CHAR<100,A*> 

1110 CALL CHAR< 101 , "0080C0E0 

E0F0FCFE" ) 

1120 CALL CHAR( 102, "7F3F0F07 
070301 " > 

1130 CALL CHAR< 103, ••FEFCF0E0 
E0C08" > 

1140 CALL CHAR< 104, "3F07" ) 
1150 CALL CHAR<105,"FCE") 
1160 REM CREATE DIAMOND 
1170 CALL CHARC 1 13, "00010103 
07070F1F" ) 

1180 CALL CHARC 114, "00808000 
E0E0F0F8" ) 

1190 CALL CHAR< 1 15, "00000000 
00010307") 

1200 CALL CHAR<116,"1F3F7FFF 
FFFFFFFF" > 

1210 CALL CHAR(117,"F8FCFEFF 
FFFFFFFF" > 

1220 CALL CHAR<118,«00000000 

0080C0E0" ) 

1230 CALL CHAR< 119, "070301") 
1240 CALL CHAR< 120, "FFFFFFFF 
FF7F3F1F" ) 

1250 CALL CHAR< 121 FFFFFFFF 
FFFEFCF8") 

1260 CALL CHAR<122,"E0C08") 
1270 CALL CHAR(123,"1F0F0707 
030101") 

1280 CALL CHAR<124,"F8F0E0E0 
C0808" ) 

1290 REM CREATE BAR 

1300 CALL CHAR(64, "00000F0F0 

F0F0F0F" ) 

1310 CALL CHAR(58, "0000FFFFF 
FFFFFFF") 

1320 CALL CHAR(59, "0000F0F0F 
0F0F0F0" ) 

1330 CALL CHAR(60 , "0F0F0F0F0 
F0F") 

1340 CALL CHAR<63, "F0F0F0F0F 
0F" ) 

1350 CALL CHAR<62, "FFFFFFFFF 
FFF") 

1360 FOR 0=1 TO 1000 
1370 NEXT Q 
1380 CALL CLEAR 



1390 PRINT 
S Y OR N" : 



INSTRUCTION 



1400 CALL KEY<0,K,S) 

1410 IF K=78 THEN 1670 

1420 IF K089 THEN 1400 

1430 CALL CLEAR 

1440 PRINT " SCORIN 

6" : : : 

1450 PRINT "IF ALL PICTURES 
ARE ALIKE" 

1460 PRINT " 300 POINT 

S" : : 

1470 PRINT "IF FIRST TWO PIC 
TURES ARE CHERRIES, LEMONS 
, OR BARS" 

1480 PRINT " 150 POINT 

S" : : 

1490 PRINT "IF FIRST TWO PIC 
TURES ARE HEARTS, BELLS, 
R DIAMONDS" 

1500 PRINT " 40 POINT 

S" : : 

1510 PRINT "IF FIRST AND LAS 
T PICTURES ARE ALIKE" 
1520 PRINT " 40 POINT 

S" : : 

1530 PRINT "ALL OTHER COMBIN 
ATIONS" 

1540 PRINT " LOSE 25 P 

OINTS" : : 

1550 PRINT "PRESS ANY KEY WH 
EN READY" 

1560 CALL KEY(0,K,S) 

1570 IF S=0 THEN 1560 

1580 CALL CLEAR 

1590 PRINT " THE HANDLE CON 

TROLS THE SPEED OF THE 

MACHINE" : : 

1600 PRINT "TO PULL THE HAND 
LE SELECT ANY NUMBER BETWE 
EN 1 AND 9" : : 

1610 PRINT " 1 MOVIES THE MAC 
HINE FAST" : : 

1620 PRINT " 9 MOUES THE MAC 

HINE SLOW" : : ! : 

1630 PRINT " PRESS N TO E 

ND GAME" :::::: 

1640 PRINT " PRESS ANY KEY 

WHEN READY" : : 

1650 CALL KEY(0,K,S) 

1660 IF S=0 THEN 1650 

1670 CALL CLEAR 

1680 REM CREATE SLOT MACHINE 
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1690 CALL VCHAR<7,8,40,ie> 
1700 CALL VCHAR<7,9,40,10> 
1710 CALL »v'CHAR<7,10,40,10) 
1720 CALL UCHAR<7,23,40 , 10) 
1730 CALL «./CHAR<7,24,40,10) 
1740 CALL 'v'CHAR< 7,25,40, 10) 
1750 RESTORE 1800 
1760 FOR 0=1 TO 27 
1770 READ X,Y,Z,UI 
1780 CALL HCHAR<X,Y,Z ,W) 
1790 NEXT Q 

1800 DATA 4,9,134,1,4,10,133 
, 1 4 , 4 , 24 , 1 35 , 1 , 1 7 , 6 , 1 34 , 1 , 1 7 
1810 DATA 27,135,1,17,7,133, 
20 , 1 8 , 6 , 1 33 , 22 , 1 9 , 6 , 1 33 , 22 
1820 DATA 13,20,134,1,13,21, 
1 33 , 1 , 1 3 , 22 , 1 35 , 1 , 1 4 , 20 , 1 1 
1830 DATA 1,14,21,100,1,14,2 
2,111 ,1 ,5,8,38,1 ,5,25,34,1 
1840 DATA 5,9,40,16,6,8,40,1 
8 , 1 1 , 1 1 , 40 , 1 2 , 1 2 , 1 1 , 40 , 1 2 , 1 3 
1 850 DATA 1 4 , 40 , 6 , 1 4 , 1 1 , 40 , 9 
,15,8,40,20,16 

I860 DATA 11,40,12,13,11,107 
,1 ,13,12,108,1 ,13,13,109,1 
1870 CALL UCHAR<7,27,106,8) 
1880 CALL HCHAR< 6,27,35) 
1890 DATA 1,24, 8, PRESS 1 TO 
9 OR N 

1900 RESTORE 1890 

1910 GOSUB 3610 

1920 C=ll 

1930 GOSUB 3210 

1940 C=15 

1950 GOSUB 3410 

I960 C=19 

1970 GOSUB 3110 

1980 REM PULL HANDLE 

1990 CALL KEY(0,K2,S) 

2000 IF S=0 THEN 1990 

2010 CALL HCHAR( 2, 18,32,7) 

2020 CALL HCHAR<22,5,32,25) 

2030 IF K2=78 THEN 2980 

2040 IF (K2<49)+(K2>57)=-1 T 

HEN 1990 

2050 FOR A=7 TO 14 
2060 CALL HCHAR(A-1 ,27,32) 
2070 CALL HCHAR<A,27,35) 
2080 NEXT A 

2090 CALL UCHAR<7,27, 106,8) 
2100 CALL <v'CHAR<6,27,35) 
2110 CALL C0L0R<16,16,16) 
2120 FOR F=7 TO 10 
2130 CALL HCHARCF, 11 ,158,12) 



2140 NEXT F 

2150 FOR FLS=1 TO K2-48 

2160 FOR C0L=3 TO 10 

2170 CALL C0L0R<16,C0L,1) 

2180 CALL SOUND<30 ,-5,9) 

2190 NEXT COL 

2200 NEXT FLS 

2210 CALL C0L0R(16,9,16) 

2220 FOR CL=7 TO 10 

2230 CALL HCHAR<CL, 11 ,32,12) 

2240 NEXT CL 

2250 REM RANDOM CHOICE 

2260 C=ll 

2270 FOR 1=1 TO 3 

2280 PIC(I)=INT(6*RND)+1 

2290 ON PI C< I) GOSUB 3010,311 

,3210 ,3310 ,3410 ,3510 

2300 C=C+4 

2310 NEXT I 

2320 REM SCORING 

2330 IF PIC(1)<>PIC<2)THEN 2 

350 

2340 IF PIC(2)=PIC(3)THEN 26 
80 ELSE 2370 

2350 IF PIC(1)<>PIC<3)THEN 2 
510 

2360 GOTO 2570 

2370 IF PIC<1)/2<>INT<PIC(1) 

/2)THEN 2570 

2380 TOTAL=TOTAL+ 1 50 

2390 FOR Z=l TO 2 

2400 CALL SOUND<150,440,2) 

2410 CALL SOUND< 150, 660, 2) 

2420 CALL SOUND<150,550,2) 

2430 CALL SOUND (150,440, 2) 

2440 CALL SOUND< 150, 660, 2) 

2450 CALL SOUND ( 150 ,550 ,2) 

2460 NEXT Z 

2470 DATA 1,22, 8, BONUS 150 P 
01 NTS 

2480 RESTORE 2470 

2490 GOSUB 3610 

2500 GOTO 2930 

2510 T0TAL=T0TAL-25 

2520 CALL SOUND( 188, 110,1) 

2530 DATA 1,22, 10, LOSE 25 PO 

I NTS 

2540 RESTORE 2538 

2550 GOSUB 3610 

2560 GOTO 2930 

2570 TOTAL=TOTAL+40 

2580 FOR Z=l TO 2 

2590 CALL SOUND( 150,660,2) 

2600 CALL SOUND( 150 ,770 ,2) 
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2610 CALL SOUND< 150, 660,2) 
2620 CALL SOUND< 150, 770, 2) 
2630 NEXT 2 

2640 DATA 1,22, 10, WIN 40 POI 
NTS 

2650 RESTORE 2640 
2660 GOSUB 3610 
2670 GOTO 2930 
2680 TOTAL=TOTAL+300 
2690 GOSUB 3740 





CALL 


S0UND<87, 


i 1 /5 , 


) 


O"? i CI 


CALL 


SOUND (87, 


1175, 






CALL 


S0UND<175 


,1175 


,0) 


2730 


CALL 


SOUND < 87, 


1 175, 


) 


^/40 


CALL 


SOUND < 87, 


1175, 


) 


2750 


CALL 


S0UND(175 


,1175 


,0) 


2760 


CALL 


S0UND(175 


,1976 


,0) 


£.ffK} 


CALL 


S0UND<175 


,1760 


,0) 


2780 


CALL 


SOUND< 175 


,1480 


,0) 


2790 


CALL 


SOUNDS 175 


,1175 


,0) 


2800 


GOSUB 3740 






2810 


CALL 


S0UND<87, 


1568, 


0) 


2820 


CALL 


SOUND (87, 


1976, 


0) 


2830 


CALL 


S0UND<437 


,2350 


,0) 


2840 


CALL 


SOUND (87, 20 94, 


0) 


2850 


CALL 


S0UND<87, 


1976, 


0) 


2860 


CALL 


S0UND<87, 


1760, 


0) 


2870 


CALL 


S0UND<175 


,1568 


,0) 


2880 


CALL 


S0UND<175 


,1976 


,0) 


2890 


CALL 


S0UND<175 


,1568 


,0) 


2900 


DATA 


1,22,7, JACKPOT 


! 3 



00 POINTS 

2910 RESTORE 2900 

2920 GOSUB 3610 

2930 Q*=" SCORE = ''&STR*(TOTA 

L) 

2940 COL=10 

2950 R0W=2 

2960 GOSUB 3690 

2970 GOTO 1990 

2980 CALL CLEAR 

2990 PRINT DID YOU L 

EAk^E ALL YOUR M 

ONEY?" ::::::::: 

■ • a 

■ • • 

3000 END 

3010 REM PRINT HEART 
3020 RESTORE 3090 
3030 FOR R=7 TO 10 
3040 FOR D=C TO C+3 
3050 READ X 
3060 CALL HCHAR(R,D,X) 
3070 NEXT D 
3080 NEXT R 



3090 DATA 144,145,146,147,14 

8 , 1 49 , 1 49 , 1 50 , 1 5 1 , 1 52 , 1 53 , 1 5 

4,32,156,157,32 

3100 RETURN 

3110 REM PRINT CHERRY 

3120 RESTORE 3190 

3130 FOR R=7 TO 10 

3140 FOR D=C TO C+3 

3150 READ X 

3160 CALL HCHAR<R,D,X) 
3170 NEXT D 
3180 NEXT R 

3190 DATA 32,41,32,43,42,40, 
37 , 47 , 88 , 40 , 40 , 95 , 90 , 9 1 , 92 , 9 

3 

3200 RETURN 
3210 REM PRINT BELL 
3220 RESTORE 3290 
3230 FOR R=7 TO 10 
3240 FOR D=C TO C+3 
3250 READ X 

3260 CALL HCHAR<R,D,X) 
3270 NEXT D 
3280 NEXT R 

3290 DATA 32,129,130,32,32,1 

3 1 , 1 32 , 32 , 32 , 1 36 , 1 37 , 32 , 32 , 1 

38,139,32 

3300 RETURN 

3310 REM PRINT LEMON 

3320 RESTORE 3390 

3330 FOR R=7 TO 10 

3340 FOR D=C TO C+3 

3350 READ X 

3360 CALL HCHAR(R,D,X) 

3370 NEXT D 

3380 NEXT R 

3390 DATA 32,97,98,32,99,100 

,100,101 ,102,100,100,103,32, 

104,105,32 
3400 RETURN 

3410 REM PRINT DIAMOND 
3420 RESTORE 3490 
3430 FOR R=7 TO 10 
3440 FOR D=C TO C+3 
3450 READ X 
3460 CALL HCHAR(R,D,X) 
3470 NEXT D 
3480 NEXT R 

3490 DATA 32,113,114,32,115, 

116,117,118,119,120,121 ,122, 

32,123,124,32 

3500 RETURN 

3510 REM PRINT BAR 

3520 RESTORE 3590 
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3530 FOR R=7 TO 10 

3540 FOR D=C TO C+3 

3550 READ X 

3560 CALL HCHAR<R,D,X) 

3570 NEXT D 

3580 NEXT R 

3590 DATA 32,32,32,32,64,58, 
58 , 59 , 60 , 62 , 62 , 63 , 32 , 32 , 32 , 3 

2 

3600 RETURN 

3610 READ NMBR 

3620 FOR 1=1 TO NMBR 

3630 READ ROW, COL, T* 

3640 FOR J=0 TO LEN<T*)-1 

3650 CALL HCHAR<ROW,COL+J,AS 

C<SEG*<T*, J+1 ,1))) 

3660 NEXT J 

3670 NEXT I 

3680 RETURN 



3690 FOR LN=1 TO LEN<Q*) 



3700 


Z*=SE6*<Q*,LN, 


1> 




3710 


CALL 


HCHAR<RCftJ 


,COL+LN, 


SC<2*)) 








3720 


NEXT 


LN 






3730 


RETURN 






3740 


CALL 


SOUND < 87 . 


1 1 75 , 


0> 


3750 


CALL 


SOUND < 87, 


1 1 75 , 


> 


3760 


CALL 


S0UND<175 


, 1 1 75 


. > 




CALL 


SOUND < 87, 


1 1 75 


) 


3780 


CALL 


S0UND(87, 


1 1 7S 
1 i r ^ , 


Kf } 


3790 


CALL 


SOUND < 175 


,1175 


,0) 


3800 


CALL 


S0UND<87, 


1175, 


0> 


3810 


CALL 


SOUND < 87, 


1 175, 


0> 


3820 


CALL 


S0UND<175 


,1568 


,0) 


3830 


CALL 


SOUND (175 


,1760 


,0) 


3840 


CALL 


S0UND<175 


,1976 


,0) 


3850 


RETURN 







GRAVITY SIMULATION 



This program will allow you to visually experience the gravitational force of the earth as well as the force on the 
other planets and moons of our solar system. You can also input a factor that represents materials of different 
densities to see the effect of gravitational forces on them. Actual figures are used, therefore the results are 
very enlightening. 



100 REM************«******* 
110 REM*GRAUITY SIMULATION* 
120 REM* EXTENDED BASIC * 
130 REM* BY TOM BANCHY * 
140 REM* CINCINNATI , OHIO * 
150 REM* COPYRIGHT 1983 * 
160 REM******************** 
170 REM **INITIALIZATI(^** 
180 CALL CHAR( 128, "3C7EFFFFF 
FFF7E3C''):: CALL CHAR<129,"F 
FFFC3C3C3C3FFFF") 
190 CALL SCREEN (15):: CALL C 
0L0R(13,5,15) 
200 REM ** INTRODUCTION** 
210 DISPLAY AT( 1,1) ERASE ALL 
:"THE PATH OF A BALL BOUNCIN 
6" 

220 DISPLAY AT(2,1>:"0N A SM 

OOTH STEEL SURFACE IS DETE 

RMINED BY TWO FACTORS" 

230 DISPLAY AT<4, 1 > : "-GRAUIT 

Y AND ELASTICITY- 

240 DISPLAY AT(6,1):"THE FIR 

ST OF THESE FACTORS IS THE 

ACCELERATION OF GRAV^-" 

250 DISPLAY AT<8,1) :"ITY<IN 

M/SEC'^2) ON THE PLANET 

WHERE THE BALL IS " 

260 DISPLAY AT< 10 , 1 ): "BEING 

DROPPED . " 



270 DISPLAY AT<13,1) :''FOLLCW 
ING ISA CHART OF SWiEOF THE 

DIFFERENT CELESTIAL" 
280 DISPLAY AT( 15,1 BODIES 

IN THE SOLAR SYSTEM AND TH 
EIR ACCELERATION OF" 
290 DISPLAY AT<17,1) z-GRAVIT 
Y. YOU MAY PICK (>4E OFTHESE 
BODIES OR INPUT YOUR" 
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380 DISPLAY AT(19,1) -."CJWN AC 

CELERATION OF GRAVITY." 

310 DISPLAY AT(24,1) :"»PRESS 

ANY KEY TO CONTINUE*" 
320 CALL KEY<0,K,S):: IF S=0 

THEN 310 
330 REM *«MAIN MENU** 
340 DI SPLAY AT< 1 , 1 ) ERASE ALL 
"."CHOOSE OJE OF THE FOLLOWIN 
G:"&RPT*("-" ,28) 
350 DISPLAY AT<3,1) .-"l . MERC 
URY<3.57 M/SEC'^2) 2. UENU 
S<8.87 M/SEC^2)'' 
360 DISPLAY AT<5,1):"3. EART 
H<9.8 M/SEC'^2> 4.*THE 
MOON (1.62 M/SEC'^2>" 
370 DISPLAY AT<7,1):"5. MARS 
(3.74 M/SEC'^2> 6. A TY 

PICAL ASTEROID" 
380 DISPLAY AT<9,1> 

< .0195 M/SEC'^2> 7. JUPI 
TER<28.5 M/SEC'^2)" 
390 DISPLAY AT( 1 1 , 1 ) : " 8 . *6AN 
YMEDEd .6 M/SEC'^2) 9. SAT 
URNdl .17 M/SEC'^2)" 
400 DISPLAY AT(13,1) :"10. UR 
ANUS<10.49 M/SEC^2) 1 1 . NE 
PTLWEC 13.25 M/SEC^2) " 
410 DISPLAY AT(15,1) :"12. PL 
UT0<2.21 M/SEC'^2) 13. CM 

E OF YOUR CM>4" 
420 REM **ASSIGN GRA«v»ITY** 
430 ACCEPT AT<19,2)'v'ALIDATE< 
DIGIT)SI2E<3)BEEP:C 



440 IF 


C=l 


THEN 


Kf=3.57 : 


• 
• 


60 


TO 590 












450 IF 


C=2 


THEN 


V=8.87 : 


■ 
• 


60 


TO 590 












460 IF 


C=3 


THEN 


V=9 .8 : : 




60T 


590 












470 IF 


C=4 


THEN 


^^=1.62 : 


■ 

* 


60 


TO 590 












480 IF 


C=5 


THEN 


V=3.74 : 


• 


60 


TO 590 












490 IF 


C=6 


THEN 


M=.0195 


■ 
■ 


: 6 


OTO 590 










500 IF 


C=7 


THEN 


V=23.5 : 


■ 


60 


TO 590 












510 IF 


C=8 


THEN 


V=l .6 : : 




60T 


590 












520 IF 


C=9 


THEN 


V=ll .17 


• 
• 


: 6 



OTO 590 

530 IF C=10 THEN V=10.49 :: 
60T0 590 

540 IF C=ll THEN V=13.25 :: 
60TO 590 



550 IF C=12 THEN V=2.21 : : 6 
OTO 590 

560 IF CO 13 THEN 430 

570 DISPLAY AT<23,1) :"ENTER 

YOUR OWN VALUE" 

580 ACCEPT AT<24,5)VALIDATE< 

NUMERIC) BEEP :V 

590 REM *ASSI6N ELASTICITY* 

600 DISPLAY ATUjl) ERASE ALL 

: "PLEASE INPUT THE ELASTICIT 

Y" 

610 DISPLAY AT<2,1):"0F THE 
BALL-FROM 30 TO 10 07., WITH 30 
'/, BEIN6 LITTLE BOLMCE" 
620 DISPLAY AT<4,1):"AND 100 
'/. BEIN6 A" 

630 D I SPLAY AT < 5 , 1 ) : " PERFECT 

LY ELASTIC BOUNCE." 

640 ACCEPT AT<7,5)VALIDATE<D 

I6IT)SI2E(4)BEEP:D 

650 IF D<30 OR D>100 THEN 64 



660 REM **PR06RAM RUN** 

670 DISPLAY AT< 1,1) ERASE ALL 

:"6RAVITY=" ;V :: DISPLAY AT< 

2,1) : "/.ELASTIC I TY=" ;D 

680 FOR X=l TO 4 : : CALL VCH 

AR<6,X,129,19) : : NEXT X 

690 CALL SPRITE< 1*1 ,128,7,33, 

1 ,0,5) 

700 FOR X=l TO 380 : : NEXT X 
710 A=0 

720 CALL P0SITI0N(#1 ,X,Y) : : 

IF X><183-.4*A)AND A>0 THEN 

A=~D/100*A 

730 A=A+<U/5) 

740 CALL MOTION<ttl ,A,2) 

750 IF <X>240)+(Y>250)<0 THE 

N CALL DELSPRITE<#1) : : 60T0 

770 

760 60T0 720 

770 DISPLAY AT < 1,1) ERASE ALL 
: "WOULD YOU LIKE TO CREATE" 
780 DISPLAY AT(2,1) : "ANOTHER 

SIMULATION?(Y/N) Y" 
790 ACCEPT AT<3,1)V^LIDATE(" 
YN")SI2E<-1 )BEEP:CH* 
800 IF CH*<>"Y" THEN END 
810 DISPLAY AT(5,1) : "UNDER T 
HE SAME CONDITIONS? <Y/N)" 
820 ACCEPT AT<6,8)'v»ALIDATE<" 
YN" ) SI ZE< 1 ) BEEP : CH* 
830 IF CH*="N" THEN 340 ELSE 

660 
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PINPOINT SKYDIVING CHALLENGE 



Keep your eye on the wind flag and you'll have a fairly good chance of landing on course. There are 3 targets 
for which you must aim. With a little luck and a lot of skill, you may avoid the embarassment of missing the 
Iceburg in Level 3. Happy Landing! Joysticks optional 



100 REM***************** 
110 REM* SKYDIVING * 
120 REM* CHALLENGE * 
130 REM*EXTENDED BASIC * 
140 REM* BY J. GULICK * 
150 REM*FT. MITCHELL, KY.* 
160 REM*COPYRIGHT 1983 * 
170 REM***************** 
180 CALL MAGNIFY<3) 
190 CALL CLEAR 
200 REM** INSTRUCT IONS** 
210 PRINT " Welcome to the 
TI-99/4A SKYDWING CHA 

LLENGE . " : : 

220 PRINT "This is a three p 
art contest In which you, th 
e skydiver," 

230 PRINT " must guide yours 
elf through the wind tcftspards 

a target , " : 
240 PRINT " which will be ma 
rked by an aster ix <*). You 

will gu i de " 
250 PRINT " yoursel-f useing 
the <S> and <D> keys or joys 
tick #1 as controls.": 
260 PRINT "the third board i 
s a change -frcMn the -first t 
wo. In it," 

270 PRINT " you must land yo 
urself on a dri-fting ice-flow 

. . 

280 PRINT "Your score will b 
e based on how close you co 
me to your" 

290 PRINT " target. You will 
not score anything i -f you 
hit a tree " : 

300 PRINT " on the second -f i 
eld or miss the ice-flow on t 
he third." 

310 PRINT "HIT <ENTER> TO BE 
GIN" 

320 CALL KEY<0,K,S):: IF K<> 
13 THEN 320 

330 REM**INITIALI2ATICN** 
340 CALL CLEAR :: RANDOMIZE 
: : CALL MAGNIFY(3) 



350 CALL CHAR<128,"00030F1F3 
7E242221 30B0F030302020200C0F 
0F8EC474244C8D0F0C0C0404040" 
) ! PARACHUTIST 

360 CALL CHAR(127,RPT*("F" ,1 

6)) 'SOLID BLOCK 

370 CALL CHAR< 97, "070F1F3F7F 

FFFFFF" , 98 , " FFFFFF7F3F1 F0F07 

" , 99 , " E0F0F8FCFEFFFFFF" > 

380 CALL CHAR(100,"FFFFFFFEF 

CF8F0E0"> !TREE TOP 

390 CALL CHAR<104,RPT*<"07" , 

8) ,105,"0707070F0F1F3FFF" ,10 

6,RPT*<"E0" ,8)) 

400 CALL CHAR(107,"E0E0E0F0F 

0F8FCFF") ITREE TRUNK 

410 CALL CHAR<140,RPT*<"0" ,1 

3)&:"181DFFF0E02"&RPT*< "0" ,20 

)&"C0FCFFBE383C1C380800") ! IC 

E FLOW 

420 B=l : : TOTAL=0 

430 REM**FIELD ONE** 

440 CALL CLEAR : : CALL COLOR 

(0,7,2,12,2,1,9,13,1):: CALL 

SCREEN<8> 
450 PRINT RPT*<" " ,28)&RPT*< 
CHR*(127) ,56) ; 

460 CALL SPRITE<#2, 128,9, 10, 

INT(RND*200)-»-21 ,1,0) 

470 DISPLAY AT(24,7) :"WIND < 

<<*>>> FLAG" ; 

480 CALL MOVEMENT < WIND) 

490 CALL P0SITI0N<#2,V,H) : : 

CALL GCHAR<<V-H8)/8,H/8-<H<2 

50) ,D) 

500 IF D032 THEN 760 

510 GOTO 480 

520 REM**FIELD TWO** 

530 CALL CLEAR 

540 PRINT " ac ac 

ac hdf bd 

bd" 

550 PRINT " hj hj 
hj Ik ik 

i k" 

560 PRINT RPT*(CHR*<127) ,56) 
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579 CALL SPRITE<#2, 128,9, 10, 
INT<RND*2e0)+21 ,1,8) 

580 DISPLAY AT<24,7) :"WIND < 
<<*>>> FLAG" ; 

590 CALL MOVEMENT (WIND) 
600 CALL P0SITI0N(#2,M,H) : : 
CALL 6CHAR(<'v'+18)/8,H/8-(H<2 
50> ,D) 

610 IF D=127 OR D=31 OR D=30 

THEN 760 
620 IF <D>97)+<D<107>=-2 THE 
N 880 

630 GOTO 590 

640 REM**FIELD THREE** 

650 CALL CLEAR 

660 CALL C0L0R<12,5,1 ,0,1 ,5) 

:: PRINT RPT*<" " , 28>&RPT*< C 

HR*(127) ,56) ; 

670 CALL SPRITE<#2, 128,9, 10, 
INT<RND*255)+1 ,1,0) 
680 DISPLAY AT<24,7) :"WIND < 
<<->>> FLAG";:: CALL SPRITE< 
#1 ,140,16,168,INT<RND*20 
3)+21 ) 

690 CALL SPRITE<#1 ,140,16,16 

8,INT<RND*200)+21) 

700 CALL MOVEMENTCUIIND) 

710 CALL M0TI0N<#1 ,0,WIND-SG 

N<WIND)) 

720 CALL COINC<ALL,LAND) : : I 
F LAND=-1 THEN 800 
730 CALL P0SITI0N<#2,V,H) : : 
CALL GCHAR<<'v'+18)/8,H/8-<H<2 
50) ,D) 

740 IF D032 THEN 840 
750 GOTO 700 

760 CALL COLOR< 0,1,1):: CALL 
DELSPRITE<ALL) : : CALL CLEAR 
;: SCORE=1000 
770 SCORE=INT<SCORE/< (ABS<H- 
124)/24)+l)) : : PRINT "SCORE= 
" ; SCORE 

780 TOTAL=TOTAL+ SCORE : : FOR 

TL=1 TO 2000 : : NEXT TL : : 
CALL COLOR(0,7,2) 



790 WIND=0 :: B=B+1 : : ON B 

GOTO 530,530,650 

800 CALL DELSPRITE<ALL) : : CA 

LL COLOR<0,1 ,1) : : CALL CLEAR 

810 PRINT "GOOD LANDING!!!!! 

":"1000 POINTS." :: TOTAL=TO 

TAL+1000 

820 PRINT "TOTAL SCORE=" ;TOT 

AL ;".**; 

830 GOTO 860 

840 CALL DELSPRITECALL) : : CA 
LL COLOR<0 , 1 , 1 ) : : CALL CLEAR 
850 PRINT "SPLASH !!!!!!!!!" 
:"0 POINTS. ": "TOTAL SCORE=" ; 
TOTAL ; " . " 

860 PRINT : :" HIT <ENTER> T 
PLAY AGAIN" 

870 CALL KEY<0,K,S):: IF K<> 
13 THEN 870 ELSE 420 
880 CALL COLOR< 0,1,1):: CALL 
DELSPRITE<ALL) : : CALL CLEAR 
890 PRINT "CRASH! !!!!!!!!!!! 
! " : : SCORE=0 : : PRINT SCORE 
900 GOTO 780 
910 SUB MOVEMENT<WIND) 
920 CALL J0YST<2,X,Y) 
930 IF X=0 THEN 960 
940 Q=<X=-4)-<X=4) 
950 GOTO 980 
960 CALL KEYd ,X,S) 
970 Q=(X=2)-(X=3) 
980 CALL M0TI0N<#2,1 ,Q*2+WIN 
D) 

990 WIND=WIND+INT<RND*3)-1 
1000 WIND=WIND-(WIND<-3)+<WI 
ND>3) 

1010 DISPLAY AT<23,12) :RPT*< 
CHR*< 1 27) , 3+WIND)&CHR*< 30)&R 
PT*<CHR*< 127) ,3-WIND) ; 
1020 SUBEND 
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MAZE MADNESS 

This Auto Racing course has some perilous twists and turns and such speed that you had better strap yourself 
into your playing seat to avoid being flung around while steering, with keyboard or joystick, through one of 
those hairpin turns. Keep your composure and you'll get around ok! 



188 REM ***************** 
118 REM * MAZE MADNESS * 
128 REM * TI BASIC * 
138 REM * BY Tm BANCHY * 
148 REM *CINCIh^TI ,OHIO* 
158 REM * COPYRIGHT 1983* 
168 REM ***************** 
178 REM **INITIALIZATION** 
188 CALL CLEAR 
198 CALL SCREEN<2) 
288 FOR T=l TO 13 
218 CALL C0L0R(T,12,1) 
228 NEXT T 

238 CALL C0L0R(14,1 ,1) 

248 CALL CHAR<91 ,"FFFFFFFFFF 

FFFFFF") 

258 CALL CHAR<96,"881838FFFF 
3818"> 

268 CALL CHAR<128,"AA55AA55A 
A5»i»A55-) 

278 CALL CHAR< 129, "3C7E3C3C3 
C7E1818") 

288 CALL CHAR<138,"8844FCFFF 
FFC44''> 

298 CALL CHAR<131 ,''18187E3C3 
C3C7E3C" ) 

388 CALL Ch^R< 132, "88223FFFF 
F3F22'') 

318 CALL CHAR<148,'"') 
328 REM **INSTRUCTIONS** 
338 PRINT " MAZE r^DN 

ESS" ::::::: 

348 PRINT "YOU ARE AT THE WH 
EEL OF A FORMULA RACE CAR. 

YOUR GOAL-" 
358 PRINT "TO rWJEWER YOUR 
CAR USING" 

368 PRINT "THE ARRCHaI KEYS, C 
CMiPLETING AS tlfiHY FULL LAPS 
AS" 

378 PRINT "POSSIBLE m THE T 
RACK OF YOUR CHOICE. YOU 
m^E THE" 

388 PRINT "OPTI(>J OF RACING 
CN TRACKS" 

398 PRINT "VARYING FRC^ EASY 
TO GRUEL- ING. THE CHOICE I 
S YOURS — " 



488 PRINT "PLAY IT SAFE, OR 
PUSH YOUR SKILLS TO THE LIM 
IT." 

418 PRINT " HIT ANY KEY TO 
START GOOD LUC 

K! " 

428 CALL KEY<8,K,S) 
438 IF S=8 THEN 428 
448 CALL CLEAR 
458 PRINT "DO YOU WANT EASY, 
HARD, '^ERYHARD, OR ALMOST I 
MPOSSIBLE" 

468 INPUT "MAZE<E,H,V,OR A)? 
" :Q* 

478 REM **SET MAZE BORDER** 

488 CALL CLEAR 

498 CALL HCHAR<1 ,1 ,128,96) 

588 CALL HCK^R<23,1 ,128,64) 

518 CALL VChfe2»R<l ,1 ,128,72) 

528 CALL VChWRd ,29,128,96) 

538 IF Q*="E" THEN 1538 

548 IF Q*="V" THEN 1828 

558 IF Q*="A" THEN 1668 

568 REM **SET 'H' SCREEN** 

578 XX=28 

588 YY=13 

598 RESTORE 2818 

688 FOR R=l TO 9 

618 READ Rl ,R2,R3 

628 CALL HCHARCRl ,R2,128,R3) 

638 NEXT R 

648 FOR R=l TO 15 

658 READ Rl ,R2,R3 

668 CALL VCHAR<R1 ,R2,128,R3) 

678 NEXT R 

688 FOR T=17 TO 28 

698 CALL HCKfr5|R(T, 15, 128,4) 

788 NEXT T 

718 FOR T=19 TO 22 

728 CALL HCW^R<T,4,128,9) 

738 NEXT T 

748 A=8 

758 )0<X=1 

768 YYY=11 

778 I*="hV=iZE MADNESS" 
788 GOSUB 1958 
798 B=-l 
888 X=4 
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810 L=l 

820 Y=9 

830 CHAR=132 

840 CALL HCHAR(4,10,96) 

850 CALL HCHAR<X,Y,CHAR) 

860 XXX=24 

870 YYY=12 

880 I*="LAP NO. 1" 

890 GOSUB 1950 

900 REM »«CONTROL LOOP** 

910 CALL KEY< 1 ,K,S) 

920 IF (K<0)+<K>5)<0 THEN 94 



930 ON <K+1)60T0 1210,940,12 

50,1290,940,1170 

940 CALL GCHAR<X+A,Y+B,R) 

950 IF R=128 THEN 1340 

960 IF R096 THEN 980 

970 IF E=l THEN 1080 

980 IF RO140 THEN 1000 

990 E=l 

1000 CALL HCHAR<X,Y,32) 
1010 CALL HCHAR<4,10,96) 
1020 CALL HCHAR<XX,YY,140) 
1030 X=X+A 
1040 Y=Y+B 

1050 CALL HCHAR<X,Y,CHAR> 
1060 GOTO 910 

1070 REM **LAP COMPLETED** 

1080 L=L+1 

1090 I*=STR*<L) 

1100 XXX=24 

1110 YYY=20 

1120 GOSUB 1950 

1130 E=0 

1140 CALL SOUND<-100,800,5,8 

01 ,5,802,5) 

1150 GOTO 1000 

1160 REM *CHANGE DI RECTI Cff^J* 

1170 A=-l 

1180 B=0 

1190 CHAR=131 

1200 GOTO 940 

1210 A=l 

1220 B=0 

1230 CHAR=129 

1240 GOTO 940 

1250 A=0 

1260 B=-l 

1270 Chtf!»R=132 

1280 GOTO 940 

1290 A=0 

1300 B=l 

1310 CHAR=130 

1320 GOTO 940 



1330 REM **CRASH** 

1340 FOR T=-l TO 1 

1350 CALL HCHAR(X+A+T,Y+B-1 , 

145,3) 

1360 NEXT T 

1370 FOR T=l TO 10 

1380 CALL C0L0R<15,16,16) 

1390 CALL COLOR( 15,2,2) 

1400 CALL SOUND<-200,110,6,- 

5,0) 

1410 NEXT T 

1420 PRINT " CALL AN AMBU 

LffiMCE ! ! " ; 

1430 FOR T=l TO 300 

1440 NEXT T 

1450 CALL CLEAR 

1460 PRINT "O.K., YOUR BONES 

HAUE SET. CARE TO TRY YOUR 

LUCK AGAIN?" 
1470 PRINT "HIT Q TO QUIT OR 

ANY OTHER KEY TO PLAY OVER 

a 

1480 CALL KEY<0,K,S) 

1490 IF S=0 THEN 1480 

1500 IF K=81 THEN 1510 ELSE 

440 

1510 END 

1520 REM **SET 'E' SCREEN** 
1530 XX=22 
1540 YY=14 

1550 CALL HCHAR<6,6,128,21) 
1560 CALL HCHAR<5,6,128,10) 
1570 CALL VCHAR<7,6,128,14) 
1580 CALL VCHAR<7,14,128,15) 
1590 FOR W=22 TO 26 
1600 CALL VCHAR(7,W,128,14) 
1610 NEXT W 

1620 CALL VCHAR(10,10,128,13 

) 

1630 CALL VCHAR<10,18,128,13 
) 

1640 GOTO 740 

1650 REM **SET 'A' SCREEN** 

1660 XX=15 

1670 YY=19 

1680 RESTORE 2040 

1690 FOR R=l TO 21 

1700 READ Rl ,R2,R3 

1710 CALL VCHAR<R1 ,R2,128,R3 

) 

1720 NEXT R 

1730 FOR R=l TO 19 

1740 READ Rl ,R2,R3 

1750 CALL HCHAR<R1 ,R2,128,R3 

) 
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1760 NEXT R 

1770 FOR T=19 TO 22 

1780 CALL HCHAR<T,4,128,4) 

1790 NEXT T 

1800 GOTO 740 

1810 REM **SET SCREEN** 

1820 XX=22 

1830 YY=16 

1840 RESTORE 2110 

1850 FOR R=l TO 6 

I860 READ Rl ,R2,R3 

1870 CALL «v'CHAR<Rl ,R2,128,R3 

1880 NEXT R 

1890 FOR R=l TO 18 

1900 READ Rl ,R2,R3 

1910 C^.LL HCW^RCRl ,R2,128,R3 

1920 NEXT R 

1930 GOTO 740 

1940 REM **PRINT AT** 

1950 FOR T=l TO LEN<I*) 

I960 AA=ASC<SEG*<I*,T,1)) 

1970 CALL HCI^R<XXX,YYY+T,AA 

) 

1980 NEXT T 
1990 RETURN 

2000 REM **TRACK LAYOUT** 
2010 DATA 5,6,22,6,6,22,7,6, 
7, 8, 6, 7, 9, 8, 5, 10, 8, 5, 11, 8, 5, 
16,6,2,14,13,4 



2020 DATA 12,8,5,7,19,14,7,2 
0,14,17,14,4,7,27,14,14,26,2 
,11 ,4,4,11 ,5,3 

2030 DATA 14,11,5,14,12,5,9, 

15,5,9,16,5,9,23,14,9,24,3,1 
8,24,5 

2040 DATA 4,13,2,4,14,4,4,15 
,4,4,16,6,4,23,2,16,13,6 
2050 DATA 20,21,3,20,22,3,17 
,23,3,11 ,28,3 

2060 DATA 6,6,2,7,11,6,10,12 

,3,10,13,3,13,9,4,17,10,4 

2070 DATA 6,19,6,6,20,3,6,26 

,2,13,20,5,15,26,6 

2080 DATA 5,6,5,10,4,5,9,8,1 

,11 ,4,3,12,4,3,22,13,4,15 

2090 DATA 12,7,11,22,6,6,7,4 

,13,10,1 ,15,6,3 

2100 DATA 16,6,3,12,14,6,8,2 

1 ,6,18,16,4,19,16,3,20,18,1 , 

14,21 ,5,20,25,1 

2110 DATA 6,16,16,19,5,3,19, 

7,3,19,6,3,19,11 ,3,20,9,3 

2120 DATA 5,10,1,4,14,1,5,17 

,9,6,5,11,8,18,11,9,4,11 

2130 DATA 11,17,11,12,5,11,1 

4,18,11 ,15,4,11 ,17,17,11 

2140 DATA 18,5,11,19,12,4,20 

,12,4,21 ,12,4,20,19,10,21 ,19 

,10,22,19,10 



ADDRESS ACCESS & PHONE FILE 

Now you'll be able to keep the names, addresses, phone #'s and other pertinent information for 200 friends and 
neighbors. From now on you'll be able to make neat and easy changes for those 2 or 3 people we all know who 
are always moving and have been crossed out and re-entered in our books a dozen times! there are quite a few 
features found here that make this program extremely fun and easy to work with. 

100 REM ***************** 
110 REM *MAIL&PHONE LIST* 
120 REM * TI BASIC * 
130 REM * BY R.UIARTMAN * 
140 REM * PARK HILLS, KY.* 
150 REM *C0PYRI6HT 1983 * 
160 REM ***************** 
170 CALL SCREEN<13) 
180 DIM FN*C200) ,AD*<200) ,PH 
*<200) ,LN*(200) ,CO*(200) 
190 REM **r^IN MENU** 
200 CALL CLEAR 

210 PRINT - WWWWW*// 
////////" 
220 PRINT " \ 

/" 
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230 PRINT " * MAIL & PHON 

E LIST *" 

240 PRINT " / 

\" 

250 PRINT " ////////// *\\ 
\\\\\\\\" : : : : 

260 PRINT " YOUR OPTIONS AR 
E:" : : 

270 PRINT " l-RE<v^IEW THE L 
1ST":" 2-SEARCH FOR A NAME 

n 

280 PRINT " 3-CHAN6E INFOR 
MATICMvJ'':- 4-ADD LISTINGS": 

5-DELETE LISTINGS" 
290 PRINT " 5-DELETE LI ST I 
NGS " : " 6-ALPHABET I Z E " : " 
7-READ LIST FRC»i TAPE" 
300 PRINT " 8-WRITE LIST T 
TAPE":" 9-PRINT NAMES CM 

PRINTER" 
310 PRINT " 10-TERMINATE PR 
OGR^" : : : 

320 INPUT " PICK ONE OPTION 
" :0P 

330 IF <OP<1)+<OP>10>=-1 THE 
N 200 

340 CALL CLEAR 

350 ON OP GOTO 360,520,660,1 

030 , 1 260 , 1 490 , 1 960 , 2070 , 2260 

,2370 

360 REM **REMIEW LIST«» 
370 T=0 

380 FOR 1=1 TO N 
390 T=T+1 

400 PRINT "#" ;I :LN*<I) ";F 
N*( I > :AD*< I) :CS*( I ) :PH*< I ) : : 

■ 

■ 

410 IF I=N THEN 430 

420 IF T<3 THEN 500 

430 PRINT " PRESS ^ ENTER' T 

CONTINUE." 

440 PRINT " PRESS ^X' TO EX 

IT REVIEW." 

450 CALL KEY<0,K,S) 

460 IF K=88 THEN 200 

470 IF KOI 3 THEN 450 

480 CALL CLEAR 

490 T=0 

500 NEXT I 

510 GOTO 200 

520 REM »*SEARCH*« 

530 INPUT "LAST NAME? " :NN* 

540 FOR 1=1 TO N 

550 IF LN*<I><>hm THEN 648 

560 PRINT : : " I S THE NAME : " : : 

FN*<I);" " ;LN*(I );"?": : 



570 INPUT " (Y/N) " :X* 

580 IF X*="N" THEN 640 

590 PRINT ::FN*<I);" •;LN*<I 

) :AD*<I> :CS*<I) :PH*<I) : : 

600 INPUT "f^Y MORE? <Y/N) " 

:X* 

610 IF X*="Y" THEN 530 

620 CALL CLEAR 

630 GOTO 650 

640 NEXT I 

650 GOTO 200 

660 REM **CHAN6E INFO«* 

670 AC=0 

680 IF AC=1 THEN 760 

690 INPUT "LAST NAME: " :hm 

700 FOR 1=1 TO N 

710 IF LN*<I)<>m* THEN 890 

720 PRINT ::"IS THE N^E:":: 

FN*<I);" " ;LN*(I) ;"?" : : 

730 INPUT "<Y/N) " :X* 

740 IF X*<>"Y" THEN 890 

750 CALL CLEAR 

760 CHD=I 

770 PRINT "YOUR OPTIONS ARE: 
" : : : " 1 - ADDRESS" : " 2 

- CITY/STATE/ZIPCODE" 
780 PRINT " 3 - PHC»>IE NWi 
BERS" : " 4 - NO CH^GES" : : 
790 INPUT "PICK mE OPTION? 
" :0P 

800 CALL CLEAR 

810 IF <0P<1)+<0P>4)=-1 THEN 
750 

820 CALL CLEAR 

830 m OP GOTO 910,950,990,2 

00 

840 CALL CLEAR 

850 INPUT "ANY MORE CHANGES? 

<Y/N) " :X* 

860 IF X*="Y" THEN 680 
870 CALL CLEAR 
880 GOTO 200 
890 NEXT I 
900 GOTO 200 

910 PRINT "THE OLD ADDRESS W 

AS: " : :AD*(CHD) : : 

920 PRINT "WHAT IS THE NEW A 

DDRESS?" : : 

930 INPUT AD*(n 

940 GOTO 840 

950 PRINT "THE OLD CITY/STAT 
E/2 1 PCODE WAS : " : s CS* < CHD > : 

• 

960 PRINT "WHAT IS THE NEW C 
ITY/STATE/ ZIPCODE?":: 
970 INPUT CS*<I> 
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980 GOTO 848 

990 PRINT "THE OLD PHONE Nm 
BERS WERE:" : :PH*<CHD) : : 
1000 PRINT "WHAT ARE THE NEW 
NUMBERS?" : : 
1010 INPUT PH*<I) 
1020 GOTO 840 
1030 REM *«ADD LISTINGS** 



1040 


AC=1 




1050 


L=N+1 




1060 


FOR 1 = 


L TO 200 


1070 


INPUT 


" *LAST N/5tfiE: 






" :LN*<I) 


1080 


INPUT 


" *FIRST N^WE: 






" ;FN*<I) 


1090 


INPUT 


" *ADDRESS : 






" :AD*<I) 


1100 


Input 


" *CITY/STATE/ZI 


P CODE: 


" :CS*<I) 


1110 


INPUT 


" *PHONE NUMBERS 






■ :PH*<I) 


1120 


PRINT 




1130 


CALL CLEAR 


1140 


PRINT 


"ENTRY «";!:: 


1150 


PRINT 


"YOU hWE ENTERED 


• B . ■ 
a ■ ■ 


" " ;LN*<I) ;" ," ;FN*<I) 


1160 


PRINT 


" ";AD*<I):" "; 


CS*<I):" " 


;PH*<I) : : : : 


1170 


N=N+1 




1180 


INPUT 


"ANY CI-b2tf^GES? (Y/ 


N) ■ 


:X* 




1190 


IF X*="Y" THEN 760 


1200 


INPUT 


"*2#4Y MORE LISTING 



S? <Y/N) " :X* 

1210 IF X*="N" THEN 1230 

1220 NEXT I 

1230 INPUT "RECORD DATA Gt4 T 

APE? <Y/N) " :X* 

1240 CALL CLEAR 

1250 IF X*="Y" THEN 2070 ELS 

E 200 

1260 REM **DELETE LISTINGS** 
1270 INPUT "LAST NAME: " :hm 
1280 FOR 1=1 TO N 
1290 IF LN*<I)<>m* THEN 144 



1300 PRINT ::"IS THE NAME ": 
:FN*<I);" "; LN*< I );"?": : 
1310 INPUT "<Y/N) " :X* 
1320 CALL CLEAR 
1330 L=I 

1340 IF X*="N" THEN 1440 
1350 FOR E=L TO N 
1360 FN*<E)=FN*(E+1) 
1370 LN*(E)=LN*<E+1 > 
1380 AD*<E)=AD*(E+1) 



1390 CS*<E)=CS*<E+1> 
1400 PH*<E)=PH*<E+1) 
1410 NEXT E 
1420 N=N-1 
1430 GOTO 1450 
1440 NEXT I 

1450 PRINT ::"DELETI(>i COMPL 

ETE-ANY MORE?" : : 

1460 INPUT "<Y/N) ":X* 

1470 IF X^"Y" THEN 1260 

1480 GOTO 200 

1490 REM **ALPHABETI2E** 

1500 PRINT " CNE MOMENT 

PLEASE ."::::::::::: 

1510 FOR X=l TO N 

1520 A=X 

1538 RT=LEN<LN*<X)) 
1540 FOR T=X+1 TO N 
1550 B=T 

1560 IF LN*CX)=LN*<T)THEN 18 
20 

1570 FOR 1=1 TO RT 

1580 IF SEG*<LN*<X) ,1 ,I)<=SE 

G*<LN*<T) ,1 ,I)THEN 1600 

1590 GOSUB 1660 

1600 IF SEG*<LN*<X) ,1 ,I)<>SE 

G*<LN*<T) ,1 ,I)THEN 1620 

1610 NEXT I 

1620 NEXT T 

1630 IF <X+1=N)+<X=N)=-1 THE 

N 1650 

1640 NEXT X 

1650 GOTO 200 

1660 Q^LN$<A> 

1670 LN*<A)=LN^<B) 

1680 LN«<B>=Q« 

1690 Q*=FN*(A) 

1700 FN*<A>=FN*<B) 

1710 FN*<B)=Q* 

1720 Q*=AD^<A) 

1730 AD*<A)=AD*<B) 

1740 AD*<B)=Q* 

1750 Q*=CS*<A) 

1760 CS^(:A>=CS*<B) 

1770 CS*<B>=Q* 

1780 Q^PH*<A) 

1790 PH*<A)=PH*<B) 

1800 PH*<B)=Q* 

1810 RETURN 

1820 ST=X 

1830 FOR F=ST TO ST+1 

1840 FT=LEN<FN*<F)) 

1850 FOR 1=1 TO FT 

I860 IF SEG*<FN*<F) ,1 ,I>>SEG 

*<FN*<F+1 ) , I , I )THEN 1900 
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1879 IF SEG*<FN*<F) ,1 ,I)<>SE 

G*<FN*<F+1> ,1 ,I)THEN 1949 

1889 NEXT I 

1899 NEXT F 

1999 A=F 

1919 B=F+1 

1929 GOSUB 1669 

1939 GOTO 299 

1949 IF T=N THEN 1649 

1959 GOTO 1629 

1969 REM **READ FROM TAPE»* 

1979 GOSUB 2459 

1989 OPEN #1 :DN*, INTERNAL, IN 

PUT , FIXED 128 

1999 INPUT #1 :LT* 

2999 INPUT #1 :N 

2919 FOR 1=1 TO N 

2929 INPUT #1 :LN*(I) ,FN*<I) , 

AD*<I) ,CS*<I) ,PH*<I) 

2939 IF I=N THEN 2959 

2949 NEXT I 

2959 CLOSE ttl 

2969 GOTO 299 

2979 REM »«WRITE TO TAPE** 

2989 GOSUB 2459 

2999 INPUT -IS THIS A NEW LI 

ST? (Y/N) " :X* 

2199 IF X*<>"Y" THEN 2139 

2119 PRINT ::«U)HAT IS THE TI 

TLE OF" : : 

2129 INPUT "YOUR LIST? " :LT* 

2139 OPEN #1 :DN*, SEQUENTIAL, 

INTERNAL, OUTPUT, FIXED 128 

2149 PRINT #1 :LT* 

2159 PRINT ttl :N 

2169 FOR 1=1 TO N 

2179 PRINT #1 :LN*<I) ,FN*<I) , 

AD*<I) ,CS*<I) ,PH*<I) 

2189 NEXT I 



2199 CLOSE #1 

2299 CALL CLEAR 

2219 PRINT "THE LISTINGS ARE 

RECORDED." ::::::::::: 
2229 PRINT " PRESS ^ ENTER' 
TO CtMTINUE." 
2239 CALL KEY<9,K,S) 
2249 IF KOI 3 THEN 2239 
2259 GOTO 299 

2269 REM *PRINT ON PRINTER* 

2279 GOSUB 2459 

2289 OPEN #2 :DN*, OUTPUT 

2299 PRINT «2:TAB< <32-LEN<LI 

ST*))/2) ;LT* 

2399 FOR 1=1 TO N 

2319 PRINT #2: : :FN*<I) ;" " ;L 

N*(I) 

2329 PRINT #2:AD*<I) 

2339 PRINT #2:CS*<I> 

2349 NEXT I 

2359 CLOSE #2 

2369 GOTO 299 

2379 REM **TEraiINATICW** 

2389 PRINT "DO YOU WISH TO T 

ERMINATE" : : 

2399 INPUT "THIS SESSION? <Y 

/N) " :X* 

2499 CALL CLEAR 

2419 IF X*="N" THEN 299 

2429 PRINT TAB< 19) ; "GOOD BYE 

"■■••■■■■■■a 

2439 STOP 

2449 REM **DEVICE hb^rflE** 
2459 PRINT "WHAT IS YOUR DEU 
ICE rsfr^ME?" : : 

2469 INPUT "CCSl jDSKl ,RS232/ 
1 ,ETC.)" ;DN* 

2479 IF DN*="" THEN 2469 
2489 RETURN 



SPEECH SOUNDER 



This program will randomly select two letters 
when trying to develop new sound routines. 

199 REM ****************** 
119 REM * SPEECH SOUNDER * 
129 REM * TI BASIC * 
139 REM * TE-2 W/SOUND * 
149 REM * BY ED YORK * 
159 REM *WEST CHESTER, OH* 
169 REM * COPYRIGHT 1983 * 
179 REM ****************** 
189 CALL CLEAR 
199 CALL SCREEN<5) 
299 GOSUB 479 



and pronounce their sound when put together. It is very helpful 
Speech and TE2 required. 

219 PRINT " SPEECH SOU 

NDER" :::::::::::" PRESS THE E 
NTER KEY TO BEGIN" 
229 GOSUB 529 

239 REM **OPEN TO SPEECH** 

249 OPEN #1 :" SPEECH" , OUTPUT 

259 PRINT #l:"//43 128" 

269 GOSUB 579 

279 CALL KEY<9,A,B) 

289 CALL CLEAR 

299 RANDOMIZE 
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388 


REM **BE6IN LOOP** 


458 


NEXT C 


318 


FOR C=l TO 1888 


468 


CLOSE #1 


328 


REM **RAND(»i LETTERS** 


478 


REM **DISAPPEAR** 


338 


D=INT<25*RND)+65 


488 


FOR 6=1 TO 8 


348 


F=INT<25*RND)+65 


498 


CALL C0L0R<G,5,5) 


358 


REM **STRING LETTERS** 


588 


NEXT G 


368 


A*=CHR* < D ) &CHR* < F ) 


518 


RETURN 


378 


REM **PRINT LETTERS** 


528 


REM **APPEAR** 


388 


PRIhfT THIS IS THE SO 


538 


FOR H=l TO 8 


UND 


OF " ;A*;''" : 


548 


CALL C0L0R(H,16,5) 


398 


REM **SAY LETTERS** 


558 


NEXT H 


488 


PRINT ttlz-THIS IS THE SO 


568 


RETURN 


Ut4D 


OF" 


578 


REM ** INSTRUCT IONS** 


418 


PRINT #1 :CHR*<D) 


588 


PRINT ttl: "PRESS THE ENTE 


428 


PRINT #1 : "AMD- 


R KEY TO >BEGIN" 


438 


PRINT ttl :CHR*<F) 


598 


CALL KEY<8,I,J> 


448 


PRINT #1 :A«&AW)«&A«&A^ 


688 


IF I013 THEN 598 




618 


RETURN 



^&A$&A«^^&A«&A$&A$ 

EVIEL-EYEVIL SPRITE DEMOLITION 

A quick reoutine to demonstrate the controls, properties and amazing visual appeal of sprites. Cars are used 
for this demonstration, but in keeping with the daredevil tradition, motorcycles and rockets could be easily 
added. 

278 CALL CHAR(128,-8888881F1 
424247FFFFFFF7F3C3C1 88888888 
8884828 1 8FCFEFFFFFE3C3C18" ) 
288 CALL CHAR( 132, "888888818 
284883F7FFFFF7F3C3C1 88888888 
8 F8282424FEFFFFFFFE3C3C 1 
8") 

298 CALL CHARC 136, "888887881 
8 38 4947472F3F3F3F 1 F8 98 8 8 8 1 EF 
F3F7EFEFFFFE6C88888C8C88 ■ ) 
388 CALL CHAR<148,"8878FFFC7 
E7FFFFF67838 1 8 1 83838 1 888888E 
818888C92E2E2F4FCFCFCF89- ) 
318 CALL CHAR<188,RPT*<"F" ,1 
6)):: CALL CHAR< 181 , "8183878 
F1F3F7FFF") 

328 CALL CHWR<182,"88C8E8F8F 
8FCFEFF" > 

338 CALL CHAR<185,"88888F182 
8284848"):: CALL CHAR<186,"8 
888F88884848282"> 
348 CALL CHAR<187,"48487F7F7 
F7F7F7F") 

358 CALL CWiR<188,"8282FEFEF 
EFEFEFE"):: CALL CHAR<189,"7 
F4747477F7F3838") 
368 CALL CHAR(118,"FEE2E2E2F 
EFE8C8C") 



188 REM ******************* 
118 REM *SPRITE DEMOLITION* 
128 REM * EXTENDED BASIC * 
138 REM * BY Tm a^tf^CHY * 
148 REM * CINCIhtvWTI ,OHIO * 
158 REM * COPYRIGHT 1983 * 
168 REM ******************* 
178 REM **INITIALIZATIC»>J** 
188 CALL CLEAR 
198 CALL MAGNIFY<3> 
288 CALL C0L0RC9,13,1) 
218 CALL Ci^R<64, "8888888881 
8 18F1F1F8F878 188888888888888 
C8F8F8F8FCFCFCF8E8C" ) 
228 CALL Chb^R<68, "8888888888 
1 28486841 F228888848888888848 
88287888A88888C8C8 1818") 
238 CALL CmR<72,"8888882C88 
8288128288848228888488484828 
8288E844841C8882324888" > 
248 CALL CHAR( 76, "8842888848 
8181488884898828848848814888 
438218828828888488488884" ) 
258 CALL CHAR<88, "8881882888 
8888888848888818288888888884 
88888884848888828888881 ") 
268 CALL CHAR(84, "4888888888 
8888888888888848888882881888 
888888888888888882" > 
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378 REM ««DRAUI GROUND AND 
RAMPS** 

388 CALL HCHAR< 17,1 ,188,256) 

398 FOR T=l TO 4 : : CALL HCH 

AR<17-T,6+T,181> 

488 CALL HCWiR<17-T,27-T,182 

> : : NEXT T 

418 CALL VCHAR<13, 11 ,188,4) : 
: CALL ^CHAR(13,22,188,4) 
428 CALL <^CHAR(14,18,188,3) : 
: CALL VCHAR<14,23,188,3) 
438 CALL UCW!|R(15,9,188,2) : : 

CALL VCHAR<15,24,188,2) 
448 CALL HCHAR( 16,8, 188) : : C 
ALL HCHAR( 16,25, 188) 
458 REM *«DRAU BUSES** 
468 FOR D=12 TO 28 STEP 2 
478 CALL HCHAR<14,C,185) : : C 
ALL HCHAR<14,C+1 ,186) : : CALL 

HCHAR<15,C,187) 
488 CALL HCHAR(15,C+1 ,188) : : 

CALL HCHAR<16,C,189) : : CALL 

HCHAR(16,C+1 ,118) 
498 UEXJ C 

588 REM **DRAU CARS** 

518 CALL SPRITE<«1 ,128,6,114 

,5) 

528 CALL SPRITE<«2,132,12,11 
4,236) 

538 CALL S0UND<-2888,-8,8,ll 

8,8,111 ,8,115,8) 

548 FOR X=l TO 588 ; : NEXT X 

558 REM **CARS MOVE** 

568 CALL S0lWD<-2888,-3,e,15 

8,4) 



578 CALL M0TI0N<#1 ,8,18) : : C 
ALL M0TIC»^<#2,8,-18) 



588 FOR X=l TO 215 



NEXT X 



598 REM *CARS CLIMB RAMPS* 
688 CALL S0l^D(-2888,-2,8,15 
8,6) 

618 CALL M0TI0N<#2,-28,-28) : 

: CALL MOT! 0N<#1 ,-28,28) 

628 CALL PATTERN<«1 ,136) : : C 

ALL PATTERN<»2,148) 

638 FOR X=l TO 238 NEXT X 

648 CALL S0LND<-1888,-5,8,11 

8,5) 

658 CALL M0TI0N<«1 ,5,-1) : : C 
ALL M0TI0N<#2,5,1) 
668 REM **CRASH** 
678 FOR T=64 TO 84 STEP 4 : : 
CALL PATTERN<«1 ,T) : : CALL P 
ATTERN<tt2,T) 

688 CALL S0UND<-288,-5,T-62, 
118,T-58) 

698 CALL SCREEN<11):: CALL S 
CREEN< 7) : : CALL SCREEN< 1 1 ) : s 

CALL SCREEN<7) 
788 FOR Y=l TO 15 :: h\EXJ Y 
: : NEXT T 

718 CALL M0TICMsi<#l,5,-l):: C 
ALL MOTiav« #2,5,1) 
728 FOR X=l TO 138 NEXT X 
738 CALL DELSPRITE<ALL) : : CA 
LL SCREEN<8) 

748 FOR D=l TO 288 : : NEXT D 
:: GOTO 518 



SPACE SHUTTLE COLUMBIA SPRITE DEMO 

A design of the Columbia was created and is use to demostrate how a sprite can change colors, directions, 
speed and size. 

REM **************** 
REM * SPRITE DEMO. * 
REM *E)aENDED BASIC* 
REM * BY DON BUSCH * 
REM *CINCIM>^TI ,0H.* 
REM *COPYRIGHT 1983* 
REM **************** 
REM **INITIALI2E** 
CALL CLEAR :: RANDOMIZE 
:: CALL SCREEN<2):: CALL MAG 
NIFY<3) 

198 REM CREATE CHARACTERS 
288 CALL CI^R<48,"F8F8FCFE7F 
3F1F8F8F8F8F8F8F8E8C88888888 
e8FFFEFCF8F8F8FFFF7E3C3838" ) 
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210 CALL CHAR<52,"00088800FF 
7F3F1F0F1FFFFF7E3C1C0C0F1F3F 
7FFEFCF8F0F0F0F0F0F0703010" ) 
220 CALL CHAR<56, "0C1C3C7EFF 
FF1F0F1F3F7FFF00000000 103070 
F0F0F0F0F0F0F8FCFE7F3F1F0F'' ) 
230 CALL CHAR(60 , "080C0E0F0F 
0F0F0F0F1 F3F7FFEFCF8F030383C 
7EFFFFF8F0F8FCFEFF00000000" ) 
240 CALL CHAR( 128,RPTS( "0" ,4 

8) &"C0E07E3E3C3F3706" > 

250 CALL CHAR(132,RPT*<"0" ,4 

9) &"3077E7C3CFCEC60" ) 

260 CALL CHAR< 136,RPT*< "0" ,4 

8) &"60ECFC3C7C7E0703" ) 

270 CALL CHAR<140,RPT*<"0" ,4 

9) &-6373F3C3E7EE0C0" > 
280 REM ^DEFINE SPRITES* 
290 FOR X=6 TO 22 STEP 4 
300 S1=INT(RND«2) : : S2=INT(R 
ND*2):: S3=INT( RND*2) : : S4=I 
NT<RND*2) 



310 CALL SPRITE<#X,48+<S1*80 
) ,INT<RND*12)+3,185,249,X*IN 
T(RND*-1 .75) ,X*INT(RND*-1 .75 

) ) 

320 CA.^L bPRITE<#X+l ,52+<S2* 
80) ,INT<RND*12)+3,185,1 ,X*IN 
T(RND*-1 .75) ,X*INT<RND*4>+1) 
330 CALL SPRITE<#X+2,56+<S3» 
90) ,INT(RND*12)+3,1 ,1 ,X*INT( 
RND*4)+1 ,X»INT<RND*4)+1 ) 
340 CALL SPRITE(#X+3,60+<S4* 
80) ,INT<RND*12)+3,1 ,249,X*IN 
T<RND»4) + 1 ,X*INT<RND*-1 .,75)) 
350 NEXT X 

360 REM »«MOVE SPRITES** 
370 FOR X=6 TO 22 STEP 4 
380 CALL MOTION<#X,X*INT<RND 
*-l .75) ,X*INT(RND*-1 .75)) 
390 CALL M0TI0N<#X+1 ,X*INT<R 
ND*-1 .75) ,X*INT<RND*4)+1) 
400 CALL M0TI(^<#X+2,X»INT<R 
ND*4)+1 ,X*INT<RND*4)+1 ) 
410 CALL MOTI(>4<#X+3,X*INT<R 
ND*4)+1 ,X*INT<RND*-1 .75)) 
420 NEXT X : : GOTO 370 



JG'S - QUEST! 



Dragonslayers take arms! The quest awaits you! Knights, Dungeons & Dragons all cross your path in this 
excellent version of a text-only game. This program has all the suspense one player can handle, so beware and 
expect the unexpected! 



100 REM**************** 
110 REM* QUEST * 
120 REM*EXTENDED BASIC* 
130 REM* BY J. 6UL1CK * 
140 REM*FT. MITCHELL, KY* 
150 REM*COPYRIGHT 1983* 
160 REM**************** 
170 REM** INITIALIZATION ** 
180 RANDOMIZE :: DIM A*<27) , 
B<27) ,X<27) ,SP*<27) : : CALL C 
OLOR<0,1 ,1) 

190 CALL CLEAR :: CALL SCREE 
N<2):: H=INT< RND*5+RND*5+RND 
*5)+18 :: C=6+ INT < RND*5) 
200 FOR Q=l TO 27 : : READ A* 
(Q) ,B<Q) ,X<Q) ,SP*<Q) : : NEXT 
G 

210 REM** INSTRUCTIONS ** 
220 PRINT TAB<6) ; "QUEST INTO 
MYSTERY": :" WELCOME TO TH 
E WORLD OF" 

230 PRINT "FANTASTIC AD'v'ENTU 
RE" : : 



240 PRINT "I AM RAMA6ARIAN. 
I AM TO BE": "THINE GUIDE IN 
THE CAUERNS" 

250 PRINT "OF MYSTERY. I INV 
ITE YOU TO": "TAKE UP THINE L 
ONGSWORD AND" : 

260 PRINT "MAGIC STAFF AND C 
HALLENGE" : "MY CAVERNS AND TH 
E MONSTERS" 

270 PRINT "THEREIN. IF THOU 
CANST GAIN": "15 THOUSAND PIE 
CES OF GOLD" 

280 PRINT "IN TREASURE, I SHA 
LL ALLOW" 

290 PRINT "THINE DEPARTURE. 
IF THOU" : "THINKEST THYSELF R 
EADY TO" 

300 PRINT "ENTER, PRESS <Q>" 

m m » m 

310 FOR Y=l TO 20 r: CALL SC 
REEN<2-14*<Y/2=INT(Y/2))) : : 
CALL SOUND < 50 ,-5,0) 
320 FOR S=l TO 15 :: NEXT S 
: : NEXT Y 
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330 CALL KEY<0,Y,S):: IF Y=8 
1 THEN 480 ELSE 330 
340 REM**POISON GAS TRAP** 
350 PRINT "."LOOK OUT!!!! YOU 
MUST HIT-! "THE H1=IN 
T<RND*26)+65 

360 PRINT CHR*<H1) KEY B 

EFORE THE GAS" : "KILLS YOU! ! ! 

• 

370 FOR TL=1 TO 120 :: CALL 
KEY(0,Y,S>:: IF S=l THEN 390 
380 NEXT TL s : GOTO 400 
390 IF Y=H1 THEN 410 ELSE 42 



400 PRINT "TIME'S UP, FOOL. " 

"HE WHO" :" HESITATES IS LOST. 

" " . " : : ! GOTO 1 1 90 

410 PRINT " DRAT!! FOILED A 

GAIN. " : : GOTO 980 

420 PRINT s" SORRY, BUT HITTI 

NG THE WRONG": "KEY DOESN'T H 

ELP . " : : GOTO 1 1 90 

430 PRINT HIT <Q> TO CON 

TINUE THE" :TAB<9) ;"INSTRUCTI 

ONS." 

440 REM**TIMER LOOP** 

450 CALL KEY(0,Y,S):: IF Y<> 

81 THEN 440 ELSE RETURN 

460 FOR TL=1 TO 300 : : NEXT 

TL : : RETURN 

470 REM**BEGIN GAME** 

480 CALL CLEAR : : CALL SCREE 

N(2) 

490 CALL SOUND< 175, 196,0) : : 
CALL SOUND< 150, 175,0) : : CALL 

SOUND< 500, 196,0) 
500 CALL SOUND< 125, 175,0) : ! 
CALL SOUND< 125, 165,0) 
510 CALL SOUND< 125, 147,0):: 
CALL S0UND<125,131 ,0) : : CALL 

SOUND( 300, 123,0) 
520 CALL SOUND< 100 , 131 ,0) : : 
CALL SOUND<1000,131 ,0) 
530 CALL CLEAR : : CALL SCREE 
N<3) 

540 REM**MOUEMENT** 
550 D=INT<RND*3)+1 :: SE=0 
560 PRINT "Move How <l-3>? " 
;:: ACCEPT VALI DATE< " 1 23" ) SI 
ZE<1) :L 

570 IF L=D THEN 610 

580 PRINT "BAD GUESS, MORTAL 

.":"DOOR #";L;" I S AN ILLUSI 

ON." 



590 T=T-INT<RND*20)-1 :: GOT 
560 

600 REM**MONSTERS ! ! ! ** 

610 M=INT<RND*27)+1 

620 IF T<0 THEN T=0 

630 DATA "A GOBLIN" , 2 , 4 , "NON 

E","AN ORC" ,2,6,"N0NE" ,"A SK 

ELETON" ,1 ,5, "NONE" 

640 DATA "AN ADDER" , , 3 , " POI 

SON", "A GREAT SPI DER" , , 7, "W 

EB" 

650 DATA "A HOB-GOBLIN" , , 8 , 

"NONE", "A HARPY" ,0,8, "NONE" , 

"A WEREWOLF" ,0,15 

660 DATA "LYCANTHROPY" ,"A TH 

I EF" , 1 , 20 , " STEALS AND FLEES" 

,"A SPECTRE" ,-1,8 

670 DATA "DEATH TOUCH" , "A BU 

GBEAR" ,-1 ,9,"N0NE" ,"AN OGRE" 

,-1,10 

680 DATA "GREAT STRENGTH" , "A 

GARGOYLE" ,-1 ,12, "NONE" , "AN 
IMP" ,-2,5, "NONE" , "A TROL 
L" ,-2 

690 DATA 1 ," REGENERATE DAMA 
GE","A MINOTAUR" ,-2,11 ,"YOU 
CAmOT FLEE THIS BEAST." 
700 DATA "A GORGON" ,-2,15, "T 
URN YOU TO STONE", "A BANTH" , 
-3,17 

710 DATA "SWALLOW YOU WHOLE" 
,"A PURPLE WORM" ,-3,25," SWAL 
LOW YOU WHOLE" 

720 DATA "A GI ANT" , -4 , 20 , " CR 
USHING ""HUG""", "A DRAGON", - 
4,30, "FIRE BREATH" 
730 DATA "THE BLACK KNIGHT", 
-4,25, "STAFF RESI STANT" , "NOT 
HING",0,0," " 

740 DATA "A PIT", 0,0," " , "A 

POISON GAS TRAP", 0,0," " , "A 

MAGIC POOL" ,0,0," " 

750 DATA "A SWORD", 0,0," " 

760 IF M=9 OR M=22 THEN PN*= 

"HE" ELSE IF M=7 THEN PN*="S 

HE" ELSE PN*="IT" 

770 E=INT<RND*X<M) )-< INT<RND 

*B<N)))+1 :: E1=E 

780 IF M=22 THEN SE=1 

790 PRINT :"THERE IS " ;A*<M) 

... IN-;" THIS";" CHAMBER."! 

: : IF M=23 THEN 1090 

800 IF M<25 THEN 820 

810 ON M-23 GOTO 1840,350,12 

50 , 1 760 
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820 IF H>3e THEN H=38 

830 REM«*COMBAT** 

840 PRINT "CCWIBAT OPTI(^ <1- 

SWORD, 2-STAFF, 3-FLEE 

,4-HELP>? " ; 

850 ACCEPT VALIDATED 1234" )B 

EEP SIZEd) :W 

860 IF W=2 THEN 1030 

870 IF Ul=3 THEN 1620 

880 IF W=4 THEN PRINT : "MOMS 

TER DESCRIPTION FOR " ;A*<M) ; 

":":"COMBAT SKILL:" ;B<M) 

: "MAXIMUM HIT POINTS ;X(M) : 

"SPECIAL POWERS: " ;SP*<M) : : 

: : GOTO 840 

890 REM**SWORD COMBAT** 

900 IF INT<RND*10)+B<M)+HB>4 

THEN E=E-INT<RND*6)-HB-1 
910 IF E>0 THEN PRINT "YOU H 
IT, BUT ";PN*;"'S NOT DEAD." 

: : GOTO 1000 
920 IF E>0 THEN PRINT "YOU M 
ISSED ! ! ! " : : GOTO 1000 
930 PRINT PN*;" IS DEAD." 
940 TT=INT<RND*500)-<B<M)*IN 
T<RND«10) ) + <:X(:M)*INT(RND*50) 
)+(H*2)+<M*INT(RND*10) )+ 
El 

950 IF M=21 OR M=22 THEN TT= 

TT+INT<RND*100)*M 

960 IF TT<50 THEN TT=50 

970 CALL SCREENCS):: PRINT " 

THE TREASURE I S" ;TT ; " GOLD" : " 

PIECES. " : : T=T+TT 

980 GOSUB 460 :: GOTO 1090 

990 REM»*MONSTER SWINGS** 

1000 IF INT<RND*10)-B<M)-HB> 

3 THEN PRINT PN*;" HIT YOU. 

OUCH ! ! ! ! " : : GOTO 1 380 

1010 PRINT PN*;" MISSED." :: 

GOTO 840 
1020 REM**STAFF C01BAT** 
1030 IF C=0 THEN PRINT "OUT 
OF PCttJER ! ! ! " :: GOTO 1080 
1040 PRINT TAB<7);"-< ZAP 
>-" : : FOR Y=l TO 30 
1050 CALL SCREEN(3-<Y/2=INT< 
Y/2))*7):: CALL SOUND (-99, 50 
0-Y*5,0) : : NEXT Y 
1060 IF SE>0 THEN 1880 
1070 C=C-1 :: GOTO 930 
1080 REM**TREASURE** 
1090 H=H+INT<I^D*3) : : IF T<0 

THEN T=0 



1100 IF T> 14999 THEN I960 
1110 PRINT "YOU F^V^E" ;T;''GOL 
D PIECES" : "TOTAL. " 
1120 IF T>10000 THEN PRINT " 
t^^JLY" ;15000-T;"MORE NEEDED ! 

a 

1 1 30 GOSUB 460 : : GOSUB 460 

1140 GOTO 530 

1150 REM**TAKE DfWiGE** 

1160 H=H-INT(RND*6)+B<M>+HB- 

1 

1170 IF H>0 THEN PRINT "YOU 
HA'v'E" ;H;-HIT POINT" ; CHR*< < H> 
l)*<-51)+32) :"LEFT." : : 
GOSUB 460 : : GOTO 840 
1 1 80 GOSUB 460 : : GOTO 840 
1190 CALL SCREEN<5):: PRINT 
"YOU ARE DEAD." :: IF T<0 TH 
EN T=0 

1200 PRINT T;"GOLD PIECES 
RK YOUR" : " GRAVE. " 

1210 PRINT "DO YOU WISH TO P 
LAY AGAIN?" ; 

1220 ACCEPT UALIDATE<"YN")BE 

EP SIZE<1):Q* :: IF Q*="Y'' T 

HEN RUN 

1230 GOTO 1690 

1240 REM**MAGIC POOLS** 

1250 PRINT "DO YOU WISH TO T 

EST THE": "POOL?? (Y/N) " 

1260 ACCEPT 'v^LIDATE("YN")SI 

ZE( 1 ) :T* 

1270 IF T*="N" THEN 1090 
1280 PRINT :"IT WAS A "; 
1290 P=INT<RND*8)+1 
1300 ^ P GOTO 1310,1310,131 
, 1 320 , 1 320 , 1 340 , 1 340 , 1 368 
1310 PRINT "HEALING POOL." : 
: H=H+INT<RND*<30-H) )+l :: G 
OSUB 460 : : GOTO 1090 
1320 PRINT "TREASURE" :"MULTI 
PLYING POOL" :: T=T+INT<F^D* 
<T/2) ) : : GOSUB 460 
1330 GOTO 1090 

1340 PRINT "STAFF" :"CI^RGING 
POOL." :: C=C+ INT< RND*1 0-C) 
+1 : : GOSUB 460 
1350 GOTO 1090 

1360 PRINT "POISONOUS POOL." 

: : GOTO 1 1 90 
1370 REM**MONSTER POWERS** 
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1388 ON M GOSUB 1430,1438,14 

38 , 1 738 , 1 48 8 , 1 438 , 1 438 , 1 488 , 

1 548 , 1 588 , 1 438 , 1 438 , 1 438 

, 1 438 , 1 478 , 1 438 , 1 448 , 1 568 , 1 5 

68,1518,1678,1438 

1398 GOTO 1168 

1488 IF INT<RND*28)<>THEN 11 
98 s : PRINT "YOU WERE CAUGHT 

IN A WEB ! ! " 
1418 PRINT -YOU HAVE NO WAY 
TO asiME" 5"Y0USELF FRC»i THE S 
PIDER'S" i-BITE ! ! " : : GO 
TO 1198 
1428 GOTO 1198 
1438 RETURN 

1448 IF INT<RND*5)<>1 THEN 1 
198 :: PRINT "YOU LOOKED AT 
THE GORGON'S" 

1458 PRINT "FACE. YOU t^UE BE 
EN TURNED" :» INTO STCME." :: 
GOTO 1198 
1468 RETURN 

1478 E=E+INT<f^D*3) + l :: RET 
URN 

1488 IF H>6 THEN 1218 
1498 PRINT "YOU HAVE BECOME 
A WEREWOLF." YOUR QUEST IS 
OVER." : : GOTO 1218 
1588 RETURN 

1518 IF INT<RND*5)<>1 THEN 1 
198 :: PRINT "CRUNCH!!! YOU 
ymJE BEEN" 

1528 PRINT "CAUGHT IN THE 61 
fi^S DEADLY" : " " " HUG" " . " : : G 
OTO 1198 
1538 RETURN 

1548 IF INT<RND»18)=1 THEN 1 
928 

1558 RETURN 

1568 IF INT<RND*5)=1 THEN PR 
INT "YOU I^E BEEN a-WLLOJED 
" .-"WHOLE." : : GOTO 1198 
1578 RETURN 

1588 IF INT<RND*5)<>1 THEN 1 
288 

1598 PRINT "YOU'VE BEEN KILL 
ED BY THE" :" SPECTRE'S DEATH 
TOUCH. " : : GOTO 1288 
1688 RETURN 

1618 REM**FLEE SEQUENCE** 
16^8 IF M016 THEN PRINT "RU 
N, MORTAL COWARD." ELSE PRIN 
T "YOU CAN'T FLEE FRm A 
":" MINOTAUR!!!" :: GOTO 188 



1638 GOSUB 468 

1648 IF INT<RND*5><2 THEN PR 

INT "YOU HAVE ESCAPED." :: 6 

OSUB 460 : : GOTO 11 88 

1658 PRINT "YOU FAILED. NOW 

MY MONSTER" : "WILL KILL YOU I 
I I I II 

1668 T=T-INT<RND*100> : : H=H- 
INT(RND»3):: GOTO 1168 
1678 IF INT(RND*5)<2 THEN RE 
TURN 

1680 PRINT "THE DRAGON SPEWS 
FIRE AT" : "YOU. " :: H=H-INT( 
RND*E)+HB*2 :: RETURN 
1690 CALL CHAR< 128, "E0E0E02F 
3F19191F1E0E0F1A3F27E0C00707 
07F4FC9898F87870F058FCE4 
0703"):: CALL SCREEN<2) 
1700 CALL MAGNIFY(4):: FOR Y 
=1 TO 12 

1710 CALL SPRITE(#Y,128,16,I 
NT<RND*192> + 1 , INT< RND*255:) + 1 
, INT<RND*30) , INT<RND*30) 
) 

1 728 NEXT Y : : GOTO 1 728 
1730 IF INT(RND*3)=1 THEN PR 
INT "YOU WERE KILLED BY THE 
" : "POISON." : : GOTO 1208 
1748 RETURN 

1758 REM**MAGIC SWORDS** 
1768 PRINT "DO YOU WANT THE 
SWORD" :"<WARNING~ IT MAY BE A 

CURSED BLADE> ? " ; 
1770 ACCEPT VALIDATE("YN")SI 
ZE< 1 ) :SW* 

1780 IF SW*="N" THEN 1188 

1798 HB=INT<RND*5)-1 :: PRIN 

T :"THE SWORD ISA"; 

1888 IF HB>8 THEN PRINT "PLU 

S" ;HB; "SWORD." :: GOTO 1898 

1818 IF HB=8 THEN PRINT "NOR 

MAL SWORD." :: GOTO 1898 

1828 PRINT "CURSED SWORD." : 

: GOTO 1898 

1838 REM**PITS** 

1848 HL=INT<RND*6) : s FOR Y=l 

TO HL+2 
1858 PRINT TAB<Y+18) ;"A" :: 
NEXT Y :: PRINT TAB<Y+11);"A 
H" : : H=H-HL : : IF H<1 T 
HEN 1198 

1868 PRINT "YOU HAVE ONLY";H 
;"HIT" ; "POINT<S) LEFT." :: G 
OTO 988 
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1870 REM«STAFF RESISTANCE* 

1888 IF RND<.5 THEN PRINT "T 

HE WARRIOR-'S SHIELD BLOCKS": 

"YOUR STAFF-BOLT." 

1896 C=C-1 :: GOTO 1008 

1900 GOTO 1878 

1918 REM*THIEF'S STEALING* 

1928 IF T<258 THEN RETURN EL 

SE PRINT "HE STOLE" ; 

1938 ST=INT(RND*188)+<E*5) 

1948 PRINT ST;" GOLD PIECES 

AND FLED." :: GOTO 1898 

1958 REM*«VICTORY! ! ! ! ** 



1968 CALL CLEAR :: FOR Y=l T 
16 :: CALL SCREEN<Y) : : FOR 

TL=1 TO 18 
1 978 NEXT T : : NEXT Y 
1988 DISPLAY AT< 1 8 , 1 2) ; " GOOD 

WORK.": :" YOU I^E \4m YO 
UR QUEST." 

1998 " <13,3) YOUR SCORE WAS 
" ;T-15888+(C*188)+<H*58) ; " . " 

■ 

2888 PRINT " HIT 'Q^ FOR ANO 
UTHER GAME" 

2818 CALL KEY<1,Y,S):: IF Y< 
>18 THEN 2818 ELSE Rm 
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ASCII CHARACTER CODES 



The defined characters on the TI-99/4A Computer are the standard ASCII characters for codes 32 
through 126. The following chart lists these characters and their codes. 



ASCII ASCII ASCII 

CODE CHARACTER CODE CHARACTER CODE CHARACTER 



32 


(space) 


65 


A 


97 


A 


33 


! (exclamation point) 


66 


B 


98 


B 


34 


" (quote) 


67 


C 


99 


C 


35 


# (number or pound sign) 


68 


D 


100 


D 


36 


$ (dollar) 


69 


E 


101 


E 


37 


% (percent) 


70 


F 


102 


F 


38 


& (ampersand) 


71 


G 


103 


G 


39 


' (apostrophe) 


72 


H 


104 


H 


40 


( (open parenthesis) 


73 


1 


105 


1 


41 


) (close parenthesis) 


74 


J 


106 


J 


42 


* (asterisk) 


75 


K 


107 


K 


43 


+ (plus) 


76 


L 


108 


L 


44 


, (comma) 


77 


M 


109 


M 


45 


- (minus) 


78 


N 


110 


N 


46 


. (period) 


79 





111 


O 


47 


/ (slant) 


80 


P 


112 


P 


48 





81 


Q 


113 


Q 


49 


1 


82 


R 


114 


R 


50 


2 


83 


S 


115 


S 


51 


3 


84 


T 


116 


T 


53 


5 


86 


V 


118 


V 


54 


6 


87 


W 


119 


W 


55 


7 


88 


X 


120 


X 


56 


8 


89 


Y 


121 


Y 


57 


9 


90 


Z 


122 


Z 


58 


: (colon) 


91 


[ (open bracket) 


123 


{ (left brace) 


59 


; (semicolon) 


92 


\ (reverse slant) 


124 




60 


< (less than) 


93 


] (close bracket) 


125 


} (right brace 


61 


= (equals) 


94 


A (exponentiation 


126 


(tilde) 


62 


> (greater than) 


95 


_ (line) 


127 


DEL (appear 


63 


? (question mark) 


96 


(grave) 




screen as 


64 


@ (at sign) 








blank.) 



These character codes are grouped into twelve sets for use in color graphics programs. 



Sef# Character Sef# Character Sef# Character 

Codes Codes Codes 

1 32-39 5 64-71 9 96-103 

2 40-47 6 72-79 10 104-111 

3 48-55 7 80-87 11 112-119 

4 56-63 8 88-95 12 120-127 



Two additional characters are predefined on the TI-99/4A Computer. The cursor is assigned to ASCI I 
code 30, and the edge character is assigned to code 31. 
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CONVERSION TABLE 



PATTERN-IDENTIFIER CONVERSION TABLE 




COLOR CODES 



COLOR 

Transparent 
Black 

Medium Green 
Light Green 
Dark Blue 
Light Blue 
Dark Red 
Cyan 



CODE# 
1 
2 
3 
4 
5 
6 
7 
8 



COLOR 
Medium Red 
Light Red 
Dark Yellow 
Light Yellow 
Dark Green 
Magenta 
Gray 
White 



CODE# 
9 
10 
11 
12 
13 
14 
15 
16 
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The following table gives frequencies (rounded to integers) of four octaves of the tempered scale (one 
half-step between notes). While this list does not represent the entire range of tones — or even of 
musical tones — it caU l^^i^fyi^Br'Hi^Bioaf^^^dgtk^^ 



Frequency Note .Brequ^^qyy.,^f^ote 



110 


A 

if ") ": 


,r 440 ; 


;. A (above middle C) 


117 


A#,B> 




A#.B> 


123 


B 




B 


131 


C (low C) "''n, 




C (high 0) 


139 


C#,D> ' 


554 > 


C#,D> 


147 


D ■ ' - " 


5f(7,. 


D 


157 


D#,E> ■• » - 


6^2. 


D#,Ei» 


165 


E ^ 


659 


E 


175 




698. 


F 


185 


F#,G|» 


7.40; V 


F#,G> 


196 


G 


784i 


G 


208 


G#,AJ, 


831 


G#,A> 


220 


A (below middfe C) . - ^ 


8Q0, 


A (above high 0) 


C.C.\J 




ooU, 


A (aoove nign O; 


233 


A#,Bi ; \.^. 


932; 


A#,B> 


247 


B - 


988, 


B 


P6P 


n /mlHdlp 


1 n/17 


\j 


277 


G#.D> 


1109 


G#,D> 


294 


D 


1175 


D 


311 


D#.E> 


1245 


D#.E> 


330 


E 


1319 


E 


349 


F 


1397 


F 


370 


F#,G> 


1480 


F#.G> 


392 


G 


1568 


G 


415 


G#,A> HO.K. 


1661 


G#,A> 


440 


A (above middle 0) 


1760 


A 












b'-iF C^^^'vi 


i 






. ; ■ ben •v;'-' 








V'.'o!i:''Y 1 rip I.J 




■!--:OlO (TiU'UrlM 



5jinW 
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ADDiTIONAL MUSIC CAPABILITIES 



Page 124 of the Beginners Basic Manual gives a rundown of the various notes and the frequency 
values for each. Using these values one can produce music and chords etc. The notes stop at A below 
low C. This is not sufficiently low for many base notes and makes it difficult to get the full chord. 
However, the TI-99/4A has much more capability than it gets credit for. Notes can be played lower 
than that using special harmonics. An example of the input structure is listed below and the values to 
use down to the next full octave are also listed. If you desire lower notes they can be produced by 
dividing the next higher value of the same note in half, for example - get the next G# divide the last G# 
in half. (1557 divided by 2 = 7/8) All three notes and the noise are required to get the full harmonic 

Here is the sample statement: 



In the above statement the first two notes are normal, the third note is the low note you want 
played, at a volume of 30, and the last -4 noise played at the volume at which you wish to hear the low 
note. You don't hear the noise, you hear the low note. If you were to lower the volume of notes one and 
two to 30, you would hear the low note. Using this system you can play any note you want, even below 
the piano keys! 



CALL SOUND (1000,440,10,311,10,1470,30,-4,10) 



NOTE 



FREQUENCY 



A (normal 110) 
A> ,G# 
G 

G> ,F# 



1650 
1557 
1470 
1387 
1310 
1236 
1167 
1101 
1039 
981 
926 
874 
825 



F 
E 



E/» ,D# 



D 

D> ,C# 



C 
B 



B> ,A# 
A 
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GRAPH PAPER 



iho 



NOTES 



Ikl 



mess. 



Ty. STRTE Z / P- 



□THE Tl'WHh IN BITS BYTE'S ^l^.*^'^ 
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ERROR NOTICES/CORRECTIONS 



In formatting this book to 28 column listings, the printer vas 
accessed through LIST rather than PRINT. The TI-99/14A Is designed 
to aceonodate only 8o cloumns per program line vhen listed through 
the RS-232, Due to this, an error vent unnoticed and is located at 
several places ■ throughout the book. At the following page and line 
numbers, you'll notice a four column space immediately after the 8oth 
column of print. DELETE THESE h SPACES ! 



page 


# line # 


page 


line 1 


page # 


line 


50 


81*0 


95 


1200 


133 


7 •» w 


53 


980 


96 


i6i*o 


133 


1170 


5h 


1250 


100 


1670 


13lt 


1380 


Bo 


210 


100 


290 


13l» 


11*10 


82 


jitO 


116 


2990 


i3l4 


1620 


9k 


960 


122 


680 


13'» 


1690 


9k 


1050 


129 


280 


13 k 


1710 


9k 


loSo 


132 


680 


13^ 


1850 


9k 


1130 


133 


880 








There are six 


other errors that need to 


be corrected. 




1. 


Page 5, lines 


100, 110 and 120 


should be 


REM Statements. 





2, Page 50, line # 770 should read: 

770 C-ABS{ C+B-32 ) C-C+B :: CALL HCHAR ( R , C , CHAR ) ;: GOTO II80 

3. Pages 57 and 58 should be reversed. 



Pag 


e 72, 


Variations should read: 


#1- 


720 


Y»( SIN( X/1.5) + SIN( X/3) )*7*2it 


#2- 


720 


Y»LOG( X^8 ) 


#3- 


720 


Y-{ C ABSCX-32) )/3)^2*3 


n- 


295 


FOR T"0 TO 12 STEP 2 




705 


N EXT T 




720 


Y-(SIN{ CX-T)/6)»(22-T) )+2U 


#5- 


295 


FOR T»l TO 3 




350 


ON T GOSUB 720, 730, 750 




UkO 


ON T GOSUB 720, 730, 750 




705 


NEXT T 




720 


Y- C 30»S1N{ (X-li)l6) )»EXP( -l»(X/20) ) )+2l4 




735 


Y-( 30»EXP(-1»( (X-1* )/20) ) ) + 25 




7I4O 


RETURN 




750 


Y«-1»(30»EXP(-1»( ( X-!< )/20) ) ) + 23 




760 


RETURN 


#6- 


720 


Y-( CSIN(X/C3-X/6k)))»C22-X".3))+2l* 


#7- 


295 


FOR T-1 TO 2 




350 


ON T GOSUB 720, 7l»0 




hko 


ON T GOSUB 720, 71*0 




705 


NEXT T 




683 


CALL CHARC136,"OOOOOOFFFF") 




6Bk 


CALL COLORdJ* ,7 ,1) 




685 


CALL HCHAR(13 ,1 ,136 ,32) 




720 


Y-SIN(X/l4)'»20+2l( 




TkO 


Y-cos( Cx+6)/l*)no+2i* 




T50 


RETURN 



5. Page 8U , line i 96O should read: 
960 IF LEN(IT$(I))<7 THEH 980 
965 GOSUB 2510 

6. Page 58, add these two lines to Improve the program: 

1731 FOR DELAY-1 TO 75 

1732 NEXT DELAY 



If you have any problems, feel free to call or write the editor: 

Mr . Bob Wartman 
513 Sclenic Avenue 
Park Hills, KY 1*1011 
606-1*31-1369 



Thank you for your patience and understanding I 



Finatiy, an easy to read book that covers: (in laymans terms) 

• Using and Understanding Commands 

• A dozen hints and tips 

• Flowcharting made easy 

• And 50 ready to run programs 

25 Games 
16 Educational 
9 Personal 

Extensive use of graphics - some with speech 

32 programs are designed to run in basic with just your console, 
screen and cassette recorder 
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